MaxiMac 1999 September

home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 1999 September / MaxiMac 94.iso / Macworld N°94 / Macworld Pratique / Programmation / HyperCard JP Chicheret / Goodies de JPC / statistfunctions-22-hc / StatistFunctions2.2 < prev
MacBinary | 1999-07-04 | 225.3 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Feb 18 08:30:18 1996, modified Sat Jul 3 21:19:52 1999, creator HyperCard, type HyperCard stack, 229376 bytes "StatistFunctions2.2" , at 0x38080 1077 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	dearkID	deark: macbinary	default
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 53 74 61 74 69 73 | 74 46 75 6e 63 74 69 6f |..Statis|tFunctio|
|00000010| 6e 73 32 2e 32 00 00 00 | 00 00 00 00 00 00 00 00 |ns2.2...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 03 80 00 00 | 00 04 35 ad 4c da 6a b3 |........|..5.L.j.|
|00000060| a4 67 38 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.g8.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 53 d4 00 00 |........|....S...|
|00000080| 00 00 1e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |....STAK|........|
|00000090| 00 00 00 0a 00 03 80 00 | 00 00 1e 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a db 00 00 00 2c |........|.......,|
|000000b0| 00 00 0b 1d 00 00 64 b2 | 00 00 00 04 00 00 6d 80 |......d.|......m.|
|000000c0| 00 00 09 57 00 00 00 00 | 00 05 00 00 10 00 00 00 |...W....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 41 80 00 | 02 41 80 00 02 41 80 00 |.....A..|.A...A..|
|000000f0| db ee 0b 74 00 00 00 00 | 00 34 02 b0 01 8c 03 d0 |...t....|.4......|
|00000100| 00 00 00 00 03 66 04 80 | 00 00 00 00 00 00 00 00 |.....f..|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 59 00 00 0c 67 | 01 58 01 20 00 00 00 00 |...Y...g|.X. ....|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 38 80 00 00 43 a0 | 00 00 b9 a0 00 00 04 40 |..8...C.|.......@|
|00000490| 00 00 be a0 00 00 06 60 | 00 03 60 a0 00 00 1f 40 |.......`|..`....@|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 6f 6e 20 6f 70 65 6e 73 | 74 61 63 6b 0d 69 66 20 |on opens|tack.if |
|00000690| 74 68 65 20 75 73 65 72 | 6c 65 76 65 6c 3c 34 20 |the user|level<4 |
|000006a0| 74 68 65 6e 0d 73 65 74 | 20 75 73 65 72 6c 65 76 |then.set| userlev|
|000006b0| 65 6c 20 74 6f 20 34 0d | 65 6e 64 20 69 66 0d 2d |el to 4.|end if.-|
|000006c0| 2d 6e 65 63 65 73 73 61 | 72 79 20 66 6f 72 20 74 |-necessa|ry for t|
|000006d0| 68 65 20 73 65 6c 65 63 | 74 20 66 75 6e 63 74 69 |he selec|t functi|
|000006e0| 6f 6e 0d 70 61 73 73 20 | 6f 70 65 6e 73 74 61 63 |on.pass |openstac|
|000006f0| 6b 0d 65 6e 64 20 6f 70 | 65 6e 73 74 61 63 6b 0d |k.end op|enstack.|
|00000700| 6f 6e 20 72 65 73 75 6d | 65 73 74 61 63 6b 0d 6f |on resum|estack.o|
|00000710| 70 65 6e 73 74 61 63 6b | 0d 70 61 73 73 20 72 65 |penstack|.pass re|
|00000720| 73 75 6d 65 73 74 61 63 | 6b 0d 65 6e 64 20 72 65 |sumestac|k.end re|
|00000730| 73 75 6d 65 73 74 61 63 | 6b 0d 0d 6f 6e 20 63 6c |sumestac|k..on cl|
|00000740| 6f 73 65 73 74 61 63 6b | 0d 67 65 74 20 66 72 65 |osestack|.get fre|
|00000750| 65 73 69 7a 65 20 6f 66 | 20 73 74 61 63 6b 0d 70 |esize of| stack.p|
|00000760| 75 74 20 69 74 20 69 6e | 74 6f 20 46 53 0d 67 65 |ut it in|to FS.ge|
|00000770| 74 20 73 69 7a 65 20 6f | 66 20 73 74 61 63 6b 0d |t size o|f stack.|
|00000780| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 53 53 0d 69 |put it i|nto SS.i|
|00000790| 66 20 28 46 53 20 3e 20 | 31 30 30 30 30 20 61 6e |f (FS > |10000 an|
|000007a0| 64 20 46 53 20 3e 20 53 | 53 2a 30 2e 31 35 29 20 |d FS > S|S*0.15) |
|000007b0| 61 6e 64 20 28 64 69 73 | 6b 73 70 61 63 65 28 29 |and (dis|kspace()|
|000007c0| 20 3e 20 53 53 2b 31 30 | 30 30 30 29 c2 0d 61 6e | > SS+10|000)..an|
|000007d0| 64 20 28 74 68 65 20 63 | 61 6e 74 6d 6f 64 69 66 |d (the c|antmodif|
|000007e0| 79 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |y of thi|s stack |
|000007f0| 69 73 20 66 61 6c 73 65 | 29 20 74 68 65 6e 0d 64 |is false|) then.d|
|00000800| 6f 6d 65 6e 75 20 22 63 | 6f 6d 70 61 63 74 20 73 |omenu "c|ompact s|
|00000810| 74 61 63 6b 22 0d 65 6e | 64 20 69 66 0d 70 61 73 |tack".en|d if.pas|
|00000820| 73 20 63 6c 6f 73 65 73 | 74 61 63 6b 0d 65 6e 64 |s closes|tack.end|
|00000830| 20 63 6c 6f 73 65 73 74 | 61 63 6b 0d 2d 2d a9 a9 | closest|ack.--..|
|00000840| 20 4f 2e 20 76 61 6e 20 | 56 6c 69 6a 6d 65 6e 20 | O. van |Vlijmen |
|00000850| 30 35 2d 30 39 2d 31 39 | 39 36 2c 20 30 36 2d 31 |05-09-19|96, 06-1|
|00000860| 31 2d 31 39 39 38 0d 0d | 2d 2d b0 b0 b0 b0 b0 b0 |1-1998..|--......|
|00000870| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 20 56 4f |........|..... VO|
|00000880| 45 52 55 49 54 20 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |ERUIT ..|........|
|00000890| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000008a0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 0d |........|........|
|000008b0| 2d 2d 4f 75 74 70 75 74 | 20 66 75 6e 63 74 69 6f |--Output| functio|
|000008c0| 6e 2e 0d 2d 2d 57 69 74 | 68 6f 75 74 20 70 61 72 |n..--Wit|hout par|
|000008d0| 61 6d 65 74 65 72 73 3a | 20 70 75 74 73 20 72 65 |ameters:| puts re|
|000008e0| 74 75 72 6e 20 61 66 74 | 65 72 20 62 67 20 66 6c |turn aft|er bg fl|
|000008f0| 64 20 61 6e 64 20 73 65 | 6c 65 63 74 73 20 69 6e |d and se|lects in|
|00000900| 0d 2d 2d 6f 72 64 65 72 | 20 74 6f 20 73 63 72 6f |.--order| to scro|
|00000910| 6c 6c 20 74 65 78 74 2e | 0d 2d 2d 6b 6e 73 20 6d |ll text.|.--kns m|
|00000920| 75 73 74 20 62 65 20 70 | 72 65 73 65 6e 74 65 64 |ust be p|resented|
|00000930| 20 61 73 20 74 68 65 20 | 6c 6e 20 6f 66 20 74 68 | as the |ln of th|
|00000940| 65 20 6e 75 6d 62 65 72 | 20 79 6f 75 20 77 69 73 |e number| you wis|
|00000950| 68 20 74 6f 0d 2d 2d 6f | 75 74 70 75 74 2e 20 54 |h to.--o|utput. T|
|00000960| 68 65 20 72 65 73 75 6c | 74 20 69 73 20 61 20 6e |he resul|t is a n|
|00000970| 75 6d 62 65 72 20 69 6e | 20 73 63 69 65 6e 74 69 |umber in| scienti|
|00000980| 66 69 63 20 6e 6f 74 61 | 74 69 6f 6e 0d 2d 2d 6c |fic nota|tion.--l|
|00000990| 69 6b 65 20 31 2e 32 33 | 20 2a 20 31 30 20 45 20 |ike 1.23| * 10 E |
|000009a0| 34 35 2e 20 55 73 65 73 | 20 74 68 65 20 66 75 6e |45. Uses| the fun|
|000009b0| 63 74 69 6f 6e 20 6d 61 | 6e 74 45 78 70 2e 0d 2d |ction ma|ntExp..-|
|000009c0| 2d 70 72 6d 20 69 73 20 | 74 68 65 20 70 72 6f 6d |-prm is |the prom|
|000009d0| 70 74 20 66 6f 72 20 74 | 68 65 20 61 6e 73 77 65 |pt for t|he answe|
|000009e0| 72 20 70 61 6e 65 6c 2e | 20 56 61 6c 75 65 73 3a |r panel.| Values:|
|000009f0| 20 22 61 22 20 6f 72 20 | 22 6b 22 3b 0d 2d 2d 61 | "a" or |"k";.--a|
|00000a00| 20 6d 65 61 6e 73 20 6f | 75 74 70 75 74 20 66 6f | means o|utput fo|
|00000a10| 72 20 61 20 6e 75 6d 62 | 65 72 2c 20 6b 20 6d 65 |r a numb|er, k me|
|00000a20| 61 6e 73 20 6f 75 74 70 | 75 74 20 66 6f 72 20 61 |ans outp|ut for a|
|00000a30| 20 70 72 6f 62 61 62 69 | 6c 69 74 79 2e 0d 2d 2d | probabi|lity..--|
|00000a40| 75 76 20 69 73 20 74 68 | 65 20 73 74 75 66 66 20 |uv is th|e stuff |
|00000a50| 74 68 61 74 20 69 73 20 | 61 6c 72 65 61 64 79 20 |that is |already |
|00000a60| 70 72 65 70 61 72 65 64 | 20 66 6f 72 20 6f 75 74 |prepared| for out|
|00000a70| 70 75 74 2e 0d 2d 2d 49 | 66 20 6b 6e 73 20 69 73 |put..--I|f kns is|
|00000a80| 20 61 20 70 72 6f 62 61 | 62 69 6c 69 74 79 2c 20 | a proba|bility, |
|00000a90| 74 68 65 6e 20 79 6f 75 | 20 67 65 74 20 66 69 72 |then you| get fir|
|00000aa0| 73 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 69 74 |st the n|umber it|
|00000ab0| 73 65 6c 66 2c 0d 2d 2d | 66 6f 6c 6c 6f 77 65 64 |self,.--|followed|
|00000ac0| 20 62 79 20 69 74 73 20 | 72 65 63 69 70 72 6f 63 | by its |reciproc|
|00000ad0| 61 6c 20 28 73 6f 3a 20 | 31 2f 78 29 2e 0d 2d 2d |al (so: |1/x)..--|
|00000ae0| 49 66 20 70 72 65 63 20 | 3d 20 31 20 74 68 65 6e |If prec |= 1 then|
|00000af0| 20 31 31 20 64 65 63 69 | 6d 61 6c 20 64 69 67 69 | 11 deci|mal digi|
|00000b00| 74 73 20 61 72 65 20 67 | 69 76 65 6e 20 62 61 63 |ts are g|iven bac|
|00000b10| 6b 2c 20 6f 74 68 65 72 | 77 69 73 65 20 38 2e 0d |k, other|wise 8..|
|00000b20| 2d 2d 44 75 65 20 74 6f | 20 61 6c 6c 20 63 6f 6d |--Due to| all com|
|00000b30| 70 75 74 61 74 69 6f 6e | 73 20 73 6f 6d 65 20 33 |putation|s some 3|
|00000b40| 20 64 69 67 69 74 73 20 | 61 63 63 75 72 61 63 79 | digits |accuracy|
|00000b50| 20 63 6f 75 6c 64 20 62 | 65 20 6c 6f 73 74 2e 0d | could b|e lost..|
|00000b60| 2d 2d a9 a9 20 4f 2e 20 | 76 61 6e 20 56 6c 69 6a |--.. O. |van Vlij|
|00000b70| 6d 65 6e 20 30 35 2d 30 | 39 2d 31 39 39 36 0d 0d |men 05-0|9-1996..|
|00000b80| 6f 6e 20 76 6f 65 72 75 | 69 74 20 75 76 2c 6b 6e |on voeru|it uv,kn|
|00000b90| 73 2c 70 72 6d 2c 70 72 | 65 63 0d 69 66 20 74 68 |s,prm,pr|ec.if th|
|00000ba0| 65 20 70 61 72 61 6d 63 | 6f 75 6e 74 20 3d 20 30 |e paramc|ount = 0|
|00000bb0| 20 74 68 65 6e 0d 70 75 | 74 20 72 65 74 75 72 6e | then.pu|t return|
|00000bc0| 20 61 66 74 65 72 20 66 | 6c 64 20 31 0d 73 65 6c | after f|ld 1.sel|
|00000bd0| 65 63 74 20 61 66 74 65 | 72 20 74 65 78 74 20 6f |ect afte|r text o|
|00000be0| 66 20 66 6c 64 20 31 20 | 2d 2d 73 63 72 6f 6c 6c |f fld 1 |--scroll|
|00000bf0| 73 0d 73 65 6c 65 63 74 | 20 65 6d 70 74 79 0d 65 |s.select| empty.e|
|00000c00| 78 69 74 20 76 6f 65 72 | 75 69 74 0d 65 6e 64 20 |xit voer|uit.end |
|00000c10| 69 66 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |if.put e|mpty int|
|00000c20| 6f 20 64 65 55 69 74 76 | 6f 65 72 0d 69 66 20 22 |o deUitv|oer.if "|
|00000c30| 2d 49 4e 46 22 20 69 73 | 20 69 6e 20 6b 6e 73 20 |-INF" is| in kns |
|00000c40| 74 68 65 6e 20 2d 2d 20 | 6c 6e 28 30 29 20 3d 20 |then -- |ln(0) = |
|00000c50| 2d 49 4e 46 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |-INF.put| 0 into |
|00000c60| 64 65 55 69 74 76 6f 65 | 72 0d 65 6c 73 65 0d 69 |deUitvoe|r.else.i|
|00000c70| 66 20 28 6b 6e 73 20 69 | 73 20 6e 6f 74 20 61 20 |f (kns i|s not a |
|00000c80| 6e 75 6d 62 65 72 29 20 | 6f 72 20 28 22 4e 41 4e |number) |or ("NAN|
|00000c90| 22 20 69 73 20 69 6e 20 | 6b 6e 73 29 20 6f 72 20 |" is in |kns) or |
|00000ca0| 28 22 49 4e 46 22 20 69 | 73 20 69 6e 20 6b 6e 73 |("INF" i|s in kns|
|00000cb0| 29 20 74 68 65 6e 0d 70 | 75 74 20 6b 6e 73 20 69 |) then.p|ut kns i|
|00000cc0| 6e 74 6f 20 64 65 55 69 | 74 76 6f 65 72 0d 65 6c |nto deUi|tvoer.el|
|00000cd0| 73 65 0d 2d 2d 43 6f 6e | 76 65 72 74 20 74 6f 20 |se.--Con|vert to |
|00000ce0| 31 30 2d 6c 6f 67 20 66 | 6f 72 20 6d 61 6e 74 45 |10-log f|or mantE|
|00000cf0| 78 70 0d 70 75 74 20 6b | 6e 73 2f 6c 6e 28 31 30 |xp.put k|ns/ln(10|
|00000d00| 29 20 69 6e 74 6f 20 6b | 6e 73 0d 70 75 74 20 2d |) into k|ns.put -|
|00000d10| 6b 6e 73 20 69 6e 74 6f | 20 6b 6e 73 72 65 63 20 |kns into| knsrec |
|00000d20| 2d 2d 62 65 63 6f 6d 65 | 73 20 72 65 63 69 70 72 |--become|s recipr|
|00000d30| 6f 63 61 6c 20 6f 66 20 | 70 72 6f 62 61 62 69 6c |ocal of |probabil|
|00000d40| 69 74 79 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ity.end |if.end i|
|00000d50| 66 0d 0d 69 66 20 70 72 | 6d 20 3d 20 22 61 22 20 |f..if pr|m = "a" |
|00000d60| 74 68 65 6e 0d 70 75 74 | 20 22 4e 75 6d 62 65 72 |then.put| "Number|
|00000d70| 3a 20 22 20 69 6e 74 6f | 20 70 72 33 0d 65 6c 73 |: " into| pr3.els|
|00000d80| 65 0d 70 75 74 20 22 50 | 72 6f 62 61 62 69 6c 69 |e.put "P|robabili|
|00000d90| 74 79 3a 20 22 20 69 6e | 74 6f 20 70 72 33 0d 65 |ty: " in|to pr3.e|
|00000da0| 6e 64 20 69 66 0d 0d 69 | 66 20 70 72 65 63 20 69 |nd if..i|f prec i|
|00000db0| 73 20 65 6d 70 74 79 20 | 6f 72 20 70 72 65 63 20 |s empty |or prec |
|00000dc0| ad 20 22 31 22 20 74 68 | 65 6e 20 70 75 74 20 30 |. "1" th|en put 0|
|00000dd0| 20 69 6e 74 6f 20 70 72 | 65 63 0d 0d 69 66 20 74 | into pr|ec..if t|
|00000de0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 68 61 |he numbe|r of cha|
|00000df0| 72 73 20 6f 66 20 66 6c | 64 20 31 20 3e 20 32 39 |rs of fl|d 1 > 29|
|00000e00| 38 30 30 20 74 68 65 6e | 0d 2d 2d 49 66 20 74 68 |800 then|.--If th|
|00000e10| 65 20 6f 75 74 70 75 74 | 20 66 69 65 6c 64 20 69 |e output| field i|
|00000e20| 73 20 66 75 6c 6c 2c 20 | 74 68 65 6e 20 65 6d 70 |s full, |then emp|
|00000e30| 74 79 20 69 74 20 79 6f | 75 72 73 65 6c 66 0d 62 |ty it yo|urself.b|
|00000e40| 65 65 70 0d 70 75 74 20 | 22 4f 75 74 70 75 74 20 |eep.put |"Output |
|00000e50| 66 69 65 6c 64 20 69 73 | 20 66 75 6c 6c 21 22 20 |field is| full!" |
|00000e60| 26 20 72 65 74 75 72 6e | 20 69 6e 74 6f 20 70 72 |& return| into pr|
|00000e70| 32 0d 69 66 20 64 65 55 | 69 74 76 6f 65 72 20 69 |2.if deU|itvoer i|
|00000e80| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 73 65 74 |s empty |then.set|
|00000e90| 20 6e 75 6d 62 65 72 66 | 6f 72 6d 61 74 20 74 6f | numberf|ormat to|
|00000ea0| 20 22 23 2e 23 23 23 23 | 23 23 23 23 23 23 23 23 | "#.####|########|
|00000eb0| 23 23 23 23 23 23 23 23 | 23 22 20 2d 2d 63 6f 73 |########|#" --cos|
|00000ec0| 20 70 61 73 73 69 6e 67 | 20 74 6f 20 66 75 6e 63 | passing| to func|
|00000ed0| 74 69 6f 6e 0d 70 75 74 | 20 6d 61 6e 74 45 78 70 |tion.put| mantExp|
|00000ee0| 28 6b 6e 73 2c 70 72 65 | 63 29 20 69 6e 74 6f 20 |(kns,pre|c) into |
|00000ef0| 64 65 55 69 74 76 6f 65 | 72 0d 65 6e 64 20 69 66 |deUitvoe|r.end if|
|00000f00| 0d 70 75 74 20 70 72 33 | 20 26 20 64 65 55 69 74 |.put pr3| & deUit|
|00000f10| 76 6f 65 72 20 61 66 74 | 65 72 20 70 72 32 0d 61 |voer aft|er pr2.a|
|00000f20| 6e 73 77 65 72 20 70 72 | 32 20 77 69 74 68 20 22 |nswer pr|2 with "|
|00000f30| 41 63 68 22 0d 65 6c 73 | 65 0d 69 66 20 70 72 6d |Ach".els|e.if prm|
|00000f40| 20 3d 20 22 6b 22 20 74 | 68 65 6e 0d 2d 2d 4f 6e | = "k" t|hen.--On|
|00000f50| 6c 79 20 69 6e 20 6f 75 | 74 70 75 74 20 66 69 65 |ly in ou|tput fie|
|00000f60| 6c 64 20 6e 6f 72 6d 61 | 6c 20 61 6e 64 20 72 65 |ld norma|l and re|
|00000f70| 63 69 70 72 6f 63 61 6c | 20 69 66 20 69 74 20 69 |ciprocal| if it i|
|00000f80| 73 20 61 20 70 72 6f 62 | 61 62 69 6c 69 74 79 0d |s a prob|ability.|
|00000f90| 69 66 20 64 65 55 69 74 | 76 6f 65 72 20 69 73 20 |if deUit|voer is |
|00000fa0| 65 6d 70 74 79 20 74 68 | 65 6e 20 2d 2d 67 65 74 |empty th|en --get|
|00000fb0| 61 6c 20 77 65 72 64 20 | 64 6f 6f 72 67 65 67 65 |al werd |doorgege|
|00000fc0| 76 65 6e 20 61 61 6e 20 | 76 6f 65 72 75 69 74 0d |ven aan |voeruit.|
|00000fd0| 73 65 74 20 6e 75 6d 62 | 65 72 66 6f 72 6d 61 74 |set numb|erformat|
|00000fe0| 20 74 6f 20 22 23 2e 23 | 23 23 23 23 23 23 23 23 | to "#.#|########|
|00000ff0| 23 23 23 23 23 23 23 23 | 23 23 23 23 22 0d 70 75 |########|####".pu|
|00001000| 74 20 6d 61 6e 74 45 78 | 70 28 6b 6e 73 2c 70 72 |t mantEx|p(kns,pr|
|00001010| 65 63 29 20 69 6e 74 6f | 20 64 65 55 69 74 76 6f |ec) into| deUitvo|
|00001020| 65 72 0d 73 65 74 20 6e | 75 6d 62 65 72 66 6f 72 |er.set n|umberfor|
|00001030| 6d 61 74 20 74 6f 20 22 | 23 2e 23 23 23 23 23 23 |mat to "|#.######|
|00001040| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 22 |########|#######"|
|00001050| 0d 70 75 74 20 6d 61 6e | 74 45 78 70 28 6b 6e 73 |.put man|tExp(kns|
|00001060| 72 65 63 2c 70 72 65 63 | 29 20 69 6e 74 6f 20 64 |rec,prec|) into d|
|00001070| 65 55 69 74 76 6f 65 72 | 72 65 63 0d 70 75 74 20 |eUitvoer|rec.put |
|00001080| 75 76 20 26 20 64 65 55 | 69 74 76 6f 65 72 20 26 |uv & deU|itvoer &|
|00001090| c2 0d 22 20 2c 20 72 65 | 63 69 70 72 6f 63 61 6c |.." , re|ciprocal|
|000010a0| 20 3d 20 22 20 26 20 64 | 65 55 69 74 76 6f 65 72 | = " & d|eUitvoer|
|000010b0| 72 65 63 20 26 20 72 65 | 74 75 72 6e 20 61 66 74 |rec & re|turn aft|
|000010c0| 65 72 20 66 6c 64 20 31 | 0d 65 6c 73 65 0d 70 75 |er fld 1|.else.pu|
|000010d0| 74 20 75 76 20 26 20 64 | 65 55 69 74 76 6f 65 72 |t uv & d|eUitvoer|
|000010e0| 20 26 20 72 65 74 75 72 | 6e 20 61 66 74 65 72 20 | & retur|n after |
|000010f0| 66 6c 64 20 31 0d 65 6e | 64 20 69 66 0d 65 6c 73 |fld 1.en|d if.els|
|00001100| 65 0d 69 66 20 64 65 55 | 69 74 76 6f 65 72 20 69 |e.if deU|itvoer i|
|00001110| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 73 65 74 |s empty |then.set|
|00001120| 20 6e 75 6d 62 65 72 66 | 6f 72 6d 61 74 20 74 6f | numberf|ormat to|
|00001130| 20 22 23 2e 23 23 23 23 | 23 23 23 23 23 23 23 23 | "#.####|########|
|00001140| 23 23 23 23 23 23 23 23 | 23 22 0d 70 75 74 20 6d |########|#".put m|
|00001150| 61 6e 74 45 78 70 28 6b | 6e 73 2c 70 72 65 63 29 |antExp(k|ns,prec)|
|00001160| 20 69 6e 74 6f 20 64 65 | 55 69 74 76 6f 65 72 0d | into de|Uitvoer.|
|00001170| 65 6e 64 20 69 66 0d 70 | 75 74 20 75 76 20 26 20 |end if.p|ut uv & |
|00001180| 64 65 55 69 74 76 6f 65 | 72 20 26 20 72 65 74 75 |deUitvoe|r & retu|
|00001190| 72 6e 20 61 66 74 65 72 | 20 66 6c 64 20 31 0d 65 |rn after| fld 1.e|
|000011a0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 65 6e 64 |nd if.en|d if.end|
|000011b0| 20 76 6f 65 72 75 69 74 | 0d 0d 2d 2d 53 6f 6d 65 | voeruit|..--Some|
|000011c0| 20 65 78 61 6d 70 6c 65 | 73 20 6f 66 20 6e 75 6d | example|s of num|
|000011d0| 62 65 72 73 20 77 68 69 | 63 68 20 68 61 76 65 20 |bers whi|ch have |
|000011e0| 70 72 6f 76 65 6e 20 64 | 69 66 66 69 63 75 6c 74 |proven d|ifficult|
|000011f0| 3a 0d 2d 2d 28 6e 6f 74 | 20 79 65 74 20 74 65 73 |:.--(not| yet tes|
|00001200| 74 65 64 20 75 6e 64 65 | 72 20 50 6f 77 65 72 50 |ted unde|r PowerP|
|00001210| 43 20 4e 75 6d 65 72 69 | 63 73 29 0d 2d 2d 20 20 |C Numeri|cs).--  |
|00001220| 31 32 33 20 2d 3e 20 31 | 2e 32 33 20 2a 20 31 30 |123 -> 1|.23 * 10|
|00001230| 20 45 20 32 20 3d 20 31 | 20 74 6f 20 38 2e 31 33 | E 2 = 1| to 8.13|
|00001240| 30 30 38 31 33 20 2a 20 | 31 30 20 45 20 2d 33 20 |00813 * |10 E -3 |
|00001250| 28 6e 6f 72 6d 61 6c 20 | 6f 75 74 70 75 74 29 0d |(normal |output).|
|00001260| 2d 2d 20 20 31 20 2d 3e | 20 31 20 2a 20 31 30 20 |--  1 ->| 1 * 10 |
|00001270| 45 20 30 20 3d 20 31 20 | 74 6f 20 31 20 2a 20 31 |E 0 = 1 |to 1 * 1|
|00001280| 30 20 45 20 30 20 28 6e | 6f 72 6d 61 6c 20 74 6f |0 E 0 (n|ormal to|
|00001290| 6f 29 0d 2d 2d 20 20 30 | 20 2d 3e 20 30 20 28 53 |o).--  0| -> 0 (S|
|000012a0| 41 4e 45 20 67 69 76 65 | 73 20 66 72 6f 6d 20 6c |ANE give|s from l|
|000012b0| 6e 28 30 29 20 62 61 63 | 6b 20 61 20 2d 49 4e 46 |n(0) bac|k a -INF|
|000012c0| 20 77 68 69 63 68 20 69 | 73 20 69 6e 74 65 72 63 | which i|s interc|
|000012d0| 65 70 74 65 64 29 0d 2d | 2d 20 20 31 30 5e 35 30 |epted).-|-  10^50|
|000012e0| 30 30 20 2d 3e 20 49 4e | 46 0d 2d 2d 20 20 31 2f |00 -> IN|F.--  1/|
|000012f0| 30 20 2d 3e 20 49 4e 46 | 0d 2d 2d 20 20 31 30 5e |0 -> INF|.--  10^|
|00001300| 2d 35 30 30 30 20 2d 3e | 20 30 0d 2d 2d 20 20 2d |-5000 ->| 0.--  -|
|00001310| 31 20 2d 3e 20 4e 41 4e | 28 30 33 36 29 20 28 63 |1 -> NAN|(036) (c|
|00001320| 6f 73 20 53 41 4e 45 20 | 67 69 76 65 73 20 66 72 |os SANE |gives fr|
|00001330| 6f 6d 20 6c 6e 28 2d 31 | 29 20 61 20 4e 41 4e 20 |om ln(-1|) a NAN |
|00001340| 65 72 72 6f 72 29 2e 0d | 0d 0d 2d 2d 47 69 76 65 |error)..|..--Give|
|00001350| 73 20 6d 61 6e 74 69 73 | 73 61 20 61 6e 64 20 65 |s mantis|sa and e|
|00001360| 78 70 6f 6e 65 6e 74 20 | 6f 66 20 61 20 70 6f 73 |xponent |of a pos|
|00001370| 69 74 69 76 65 20 6e 75 | 6d 62 65 72 20 74 68 61 |itive nu|mber tha|
|00001380| 74 20 69 73 0d 2d 2d 70 | 72 65 73 65 6e 74 65 64 |t is.--p|resented|
|00001390| 20 61 73 20 61 20 31 30 | 2d 6c 6f 67 20 6e 75 6d | as a 10|-log num|
|000013a0| 62 65 72 2e 20 56 65 72 | 79 20 62 69 67 20 6e 75 |ber. Ver|y big nu|
|000013b0| 6d 62 65 72 73 20 63 61 | 6e 20 62 65 20 70 72 6f |mbers ca|n be pro|
|000013c0| 63 65 73 73 65 64 2c 0d | 2d 2d 69 2e 65 2e 20 75 |cessed,.|--i.e. u|
|000013d0| 70 20 74 6f 20 31 30 45 | 34 39 33 32 2c 20 61 6e |p to 10E|4932, an|
|000013e0| 64 20 74 68 69 73 20 69 | 73 20 74 68 65 20 6c 6f |d this i|s the lo|
|000013f0| 67 20 6f 66 20 73 6f 6d | 65 74 68 69 6e 67 21 0d |g of som|ething!.|
|00001400| 2d 2d 4c 6f 67 20 6d 61 | 79 20 62 65 20 6e 65 67 |--Log ma|y be neg|
|00001410| 61 74 69 76 65 2c 20 65 | 2e 67 2e 20 74 68 65 20 |ative, e|.g. the |
|00001420| 6c 6f 67 20 6f 66 20 31 | 30 45 2d 31 30 30 2e 0d |log of 1|0E-100..|
|00001430| 2d 2d 50 72 65 63 69 73 | 69 6f 6e 20 6f 66 20 74 |--Precis|ion of t|
|00001440| 68 65 20 6f 75 74 70 75 | 74 20 77 69 6c 6c 20 62 |he outpu|t will b|
|00001450| 65 20 61 64 6a 75 73 74 | 65 64 20 74 6f 20 74 68 |e adjust|ed to th|
|00001460| 65 20 6e 75 6d 62 65 72 | 2e 0d 2d 2d 4a 75 73 74 |e number|..--Just|
|00001470| 20 62 65 66 6f 72 65 20 | 63 61 6c 6c 69 6e 67 20 | before |calling |
|00001480| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 79 6f |this fun|ction yo|
|00001490| 75 20 64 6f 20 62 65 73 | 74 20 74 6f 20 73 65 74 |u do bes|t to set|
|000014a0| 20 61 20 6c 6f 6e 67 0d | 2d 2d 6e 75 6d 62 65 72 | a long.|--number|
|000014b0| 46 6f 72 6d 61 74 20 6f | 72 20 79 6f 75 20 6c 6f |Format o|r you lo|
|000014c0| 6f 73 65 20 61 63 63 75 | 72 61 63 79 2e 0d 2d 2d |ose accu|racy..--|
|000014d0| 49 66 20 70 72 65 63 20 | 3d 20 31 20 74 68 65 6e |If prec |= 1 then|
|000014e0| 20 31 32 20 64 65 63 69 | 6d 61 6c 20 64 69 67 69 | 12 deci|mal digi|
|000014f0| 74 73 20 67 69 76 65 6e | 20 62 61 63 6b 2c 20 6f |ts given| back, o|
|00001500| 74 68 65 72 77 69 73 65 | 20 38 2e 0d 2d 2d a9 a9 |therwise| 8..--..|
|00001510| 20 4f 2e 20 76 61 6e 20 | 56 6c 69 6a 6d 65 6e 20 | O. van |Vlijmen |
|00001520| 30 35 2d 30 39 2d 31 39 | 39 36 2c 20 30 36 2d 31 |05-09-19|96, 06-1|
|00001530| 31 2d 31 39 39 38 0d 0d | 66 75 6e 63 74 69 6f 6e |1-1998..|function|
|00001540| 20 6d 61 6e 74 45 78 70 | 20 67 65 74 61 6c 2c 70 | mantExp| getal,p|
|00001550| 72 65 63 0d 69 66 20 70 | 72 65 63 20 69 73 20 65 |rec.if p|rec is e|
|00001560| 6d 70 74 79 20 6f 72 20 | 70 72 65 63 20 ad 20 22 |mpty or |prec . "|
|00001570| 31 22 20 74 68 65 6e 20 | 70 75 74 20 30 20 69 6e |1" then |put 0 in|
|00001580| 74 6f 20 70 72 65 63 0d | 69 66 20 22 2e 22 20 69 |to prec.|if "." i|
|00001590| 73 20 6e 6f 74 20 69 6e | 20 67 65 74 61 6c 20 74 |s not in| getal t|
|000015a0| 68 65 6e 0d 2d 2d 4f 72 | 20 69 74 20 69 73 20 61 |hen.--Or| it is a|
|000015b0| 20 73 6d 61 6c 6c 20 69 | 6e 74 65 67 65 72 20 6f | small i|nteger o|
|000015c0| 72 20 61 20 76 65 72 79 | 20 62 69 67 20 66 6c 6f |r a very| big flo|
|000015d0| 61 74 69 6e 67 20 70 6f | 69 6e 74 0d 70 75 74 20 |ating po|int.put |
|000015e0| 22 31 30 20 45 20 22 20 | 69 6e 74 6f 20 75 69 74 |"10 E " |into uit|
|000015f0| 6b 6f 6d 73 74 0d 2d 2d | 41 66 74 65 72 20 74 68 |komst.--|After th|
|00001600| 69 73 20 6f 6e 6c 79 20 | 70 6f 73 69 74 69 76 65 |is only |positive|
|00001610| 20 6e 75 6d 62 65 72 73 | 20 63 61 6e 20 62 65 20 | numbers| can be |
|00001620| 70 72 6f 63 65 73 73 65 | 64 2e 0d 2d 2d 52 61 72 |processe|d..--Rar|
|00001630| 65 20 70 72 6f 62 6c 65 | 6d 3a 20 69 66 20 6e 75 |e proble|m: if nu|
|00001640| 6d 62 65 72 20 3c 31 30 | 45 2d 31 32 20 74 68 65 |mber <10|E-12 the|
|00001650| 6e 20 48 79 70 65 72 43 | 61 72 64 20 63 61 6e 6e |n HyperC|ard cann|
|00001660| 6f 74 0d 2d 2d 64 69 73 | 74 69 6e 67 75 69 73 68 |ot.--dis|tinguish|
|00001670| 20 66 72 6f 6d 20 30 2e | 20 4e 6f 74 20 73 6f 6c | from 0.| Not sol|
|00001680| 76 61 62 6c 65 20 62 79 | 20 64 65 74 65 63 74 69 |vable by| detecti|
|00001690| 6e 67 20 61 20 2d 20 63 | 68 61 72 2c 0d 2d 2d 63 |ng a - c|har,.--c|
|000016a0| 6f 73 20 74 68 65 6e 20 | 70 72 6f 62 6c 65 6d 73 |os then |problems|
|000016b0| 20 77 69 74 68 20 6e 75 | 6d 62 65 72 73 20 3e 31 | with nu|mbers >1|
|000016c0| 30 45 35 35 20 6f 72 20 | 73 6f 2e 0d 69 66 20 67 |0E55 or |so..if g|
|000016d0| 65 74 61 6c 20 3c 20 30 | 20 74 68 65 6e 0d 70 75 |etal < 0| then.pu|
|000016e0| 74 20 2d 31 20 69 6e 74 | 6f 20 73 67 6e 0d 70 75 |t -1 int|o sgn.pu|
|000016f0| 74 20 2d 67 65 74 61 6c | 20 69 6e 74 6f 20 67 65 |t -getal| into ge|
|00001700| 74 61 6c 0d 65 6c 73 65 | 0d 70 75 74 20 31 20 69 |tal.else|.put 1 i|
|00001710| 6e 74 6f 20 73 67 6e 0d | 65 6e 64 20 69 66 0d 69 |nto sgn.|end if.i|
|00001720| 66 20 70 72 65 63 20 3d | 20 31 20 74 68 65 6e 0d |f prec =| 1 then.|
|00001730| 73 65 74 20 6e 75 6d 62 | 65 72 46 6f 72 6d 61 74 |set numb|erFormat|
|00001740| 20 74 6f 20 22 30 2e 23 | 23 23 23 23 23 23 23 23 | to "0.#|########|
|00001750| 23 23 22 0d 65 6c 73 65 | 0d 73 65 74 20 6e 75 6d |##".else|.set num|
|00001760| 62 65 72 46 6f 72 6d 61 | 74 20 74 6f 20 22 30 2e |berForma|t to "0.|
|00001770| 23 23 23 23 23 23 23 23 | 22 0d 65 6e 64 20 69 66 |########|".end if|
|00001780| 0d 70 75 74 20 74 72 75 | 6e 63 28 6c 6e 28 67 65 |.put tru|nc(ln(ge|
|00001790| 74 61 6c 29 2f 6c 6e 28 | 31 30 29 29 20 69 6e 74 |tal)/ln(|10)) int|
|000017a0| 6f 20 6d 61 63 68 74 0d | 69 66 20 6d 61 63 68 74 |o macht.|if macht|
|000017b0| 20 3c 20 31 30 20 74 68 | 65 6e 0d 70 75 74 20 73 | < 10 th|en.put s|
|000017c0| 67 6e 2a 67 65 74 61 6c | 20 61 66 74 65 72 20 75 |gn*getal| after u|
|000017d0| 69 74 6b 6f 6d 73 74 0d | 70 75 74 20 22 31 20 2a |itkomst.|put "1 *|
|000017e0| 20 22 20 62 65 66 6f 72 | 65 20 75 69 74 6b 6f 6d | " befor|e uitkom|
|000017f0| 73 74 0d 65 6c 73 65 0d | 70 75 74 20 22 28 22 20 |st.else.|put "(" |
|00001800| 26 20 73 67 6e 2a 67 65 | 74 61 6c 2f 28 31 30 5e |& sgn*ge|tal/(10^|
|00001810| 6d 61 63 68 74 29 20 26 | 22 20 2a 31 30 45 20 22 |macht) &|" *10E "|
|00001820| 26 20 6d 61 63 68 74 20 | 26 20 22 29 22 20 61 66 |& macht |& ")" af|
|00001830| 74 65 72 20 75 69 74 6b | 6f 6d 73 74 0d 65 6e 64 |ter uitk|omst.end|
|00001840| 20 69 66 0d 72 65 74 75 | 72 6e 20 75 69 74 6b 6f | if.retu|rn uitko|
|00001850| 6d 73 74 0d 65 6c 73 65 | 0d 2d 2d 4e 75 6d 62 65 |mst.else|.--Numbe|
|00001860| 72 20 77 69 74 68 20 64 | 65 63 69 6d 61 6c 20 66 |r with d|ecimal f|
|00001870| 72 61 63 74 69 6f 6e 0d | 70 75 74 20 6f 66 66 73 |raction.|put offs|
|00001880| 65 74 28 22 2e 22 2c 67 | 65 74 61 6c 29 20 69 6e |et(".",g|etal) in|
|00001890| 74 6f 20 70 6c 61 61 74 | 73 0d 70 75 74 20 28 63 |to plaat|s.put (c|
|000018a0| 68 61 72 20 70 6c 61 61 | 74 73 2b 31 20 74 6f 20 |har plaa|ts+1 to |
|000018b0| 6c 65 6e 67 74 68 28 67 | 65 74 61 6c 29 20 6f 66 |length(g|etal) of|
|000018c0| 20 67 65 74 61 6c 29 20 | 69 6e 74 6f 20 66 72 61 | getal) |into fra|
|000018d0| 63 74 69 65 0d 69 66 20 | 67 65 74 61 6c 20 3c 20 |ctie.if |getal < |
|000018e0| 30 20 74 68 65 6e 0d 70 | 75 74 20 2d 31 20 69 6e |0 then.p|ut -1 in|
|000018f0| 74 6f 20 73 67 6e 0d 70 | 75 74 20 2d 67 65 74 61 |to sgn.p|ut -geta|
|00001900| 6c 20 69 6e 74 6f 20 67 | 65 74 61 6c 0d 70 75 74 |l into g|etal.put|
|00001910| 20 6f 66 66 73 65 74 28 | 22 2e 22 2c 67 65 74 61 | offset(|".",geta|
|00001920| 6c 29 20 69 6e 74 6f 20 | 70 6c 61 61 74 73 0d 65 |l) into |plaats.e|
|00001930| 6c 73 65 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 73 |lse.put |1 into s|
|00001940| 67 6e 0d 65 6e 64 20 69 | 66 0d 2d 2d 43 6f 6d 70 |gn.end i|f.--Comp|
|00001950| 75 74 65 20 6d 61 6e 74 | 69 73 73 61 20 61 6e 64 |ute mant|issa and|
|00001960| 20 65 78 70 6f 6e 65 6e | 74 0d 70 75 74 20 31 30 | exponen|t.put 10|
|00001970| 5e 28 73 67 6e 2a 28 76 | 61 6c 75 65 28 22 30 2e |^(sgn*(v|alue("0.|
|00001980| 22 20 26 20 66 72 61 63 | 74 69 65 29 29 29 20 69 |" & frac|tie))) i|
|00001990| 6e 74 6f 20 6d 61 6e 74 | 69 73 0d 70 75 74 20 73 |nto mant|is.put s|
|000019a0| 67 6e 2a 28 63 68 61 72 | 20 31 20 74 6f 20 70 6c |gn*(char| 1 to pl|
|000019b0| 61 61 74 73 2d 31 20 6f | 66 20 67 65 74 61 6c 29 |aats-1 o|f getal)|
|000019c0| 20 69 6e 74 6f 20 65 78 | 70 6f 6e 0d 69 66 20 65 | into ex|pon.if e|
|000019d0| 78 70 6f 6e 20 69 73 20 | 65 6d 70 74 79 20 74 68 |xpon is |empty th|
|000019e0| 65 6e 20 70 75 74 20 30 | 20 69 6e 74 6f 20 65 78 |en put 0| into ex|
|000019f0| 70 6f 6e 0d 72 65 70 65 | 61 74 20 77 68 69 6c 65 |pon.repe|at while|
|00001a00| 20 6d 61 6e 74 69 73 20 | 3c 31 0d 6d 75 6c 74 69 | mantis |<1.multi|
|00001a10| 70 6c 79 20 6d 61 6e 74 | 69 73 20 62 79 20 31 30 |ply mant|is by 10|
|00001a20| 0d 73 75 62 74 72 61 63 | 74 20 31 20 66 72 6f 6d |.subtrac|t 1 from|
|00001a30| 20 65 78 70 6f 6e 0d 65 | 6e 64 20 72 65 70 65 61 | expon.e|nd repea|
|00001a40| 74 0d 2d 2d 53 65 74 20 | 6f 75 74 70 75 74 20 6f |t.--Set |output o|
|00001a50| 66 20 6d 61 6e 74 69 73 | 73 61 20 74 6f 20 72 65 |f mantis|sa to re|
|00001a60| 61 6c 69 73 74 69 63 20 | 6e 75 6d 62 65 72 20 6f |alistic |number o|
|00001a70| 66 20 64 65 63 69 6d 61 | 6c 73 0d 69 66 20 6c 65 |f decima|ls.if le|
|00001a80| 6e 67 74 68 28 66 72 61 | 63 74 69 65 29 20 b3 20 |ngth(fra|ctie) . |
|00001a90| 38 20 74 68 65 6e 0d 2d | 2d 6c 6f 6f 6b 20 68 65 |8 then.-|-look he|
|00001aa0| 72 65 20 66 6f 72 20 74 | 65 73 74 69 6e 67 20 61 |re for t|esting a|
|00001ab0| 20 6c 61 72 67 65 72 20 | 23 20 73 74 72 69 6e 67 | larger |# string|
|00001ac0| 0d 69 66 20 70 72 65 63 | 20 3d 20 31 20 74 68 65 |.if prec| = 1 the|
|00001ad0| 6e 0d 73 65 74 20 6e 75 | 6d 62 65 72 46 6f 72 6d |n.set nu|mberForm|
|00001ae0| 61 74 20 74 6f 20 22 30 | 2e 23 23 23 23 23 23 23 |at to "0|.#######|
|00001af0| 23 23 23 23 22 0d 65 6c | 73 65 0d 73 65 74 20 6e |####".el|se.set n|
|00001b00| 75 6d 62 65 72 46 6f 72 | 6d 61 74 20 74 6f 20 22 |umberFor|mat to "|
|00001b10| 30 2e 23 23 23 23 23 23 | 23 23 22 0d 65 6e 64 20 |0.######|##".end |
|00001b20| 69 66 0d 65 6c 73 65 0d | 70 75 74 20 22 30 2e 22 |if.else.|put "0."|
|00001b30| 20 69 6e 74 6f 20 4e 46 | 0d 72 65 70 65 61 74 20 | into NF|.repeat |
|00001b40| 77 69 74 68 20 69 3d 31 | 20 74 6f 20 6c 65 6e 67 |with i=1| to leng|
|00001b50| 74 68 28 66 72 61 63 74 | 69 65 29 0d 70 75 74 20 |th(fract|ie).put |
|00001b60| 22 23 22 20 61 66 74 65 | 72 20 4e 46 0d 65 6e 64 |"#" afte|r NF.end|
|00001b70| 20 72 65 70 65 61 74 0d | 73 65 74 20 6e 75 6d 62 | repeat.|set numb|
|00001b80| 65 72 46 6f 72 6d 61 74 | 20 74 6f 20 4e 46 0d 65 |erFormat| to NF.e|
|00001b90| 6e 64 20 69 66 0d 72 65 | 74 75 72 6e 20 30 2b 6d |nd if.re|turn 0+m|
|00001ba0| 61 6e 74 69 73 20 26 20 | 22 20 2a 20 31 30 20 45 |antis & |" * 10 E|
|00001bb0| 20 22 20 26 20 65 78 70 | 6f 6e 0d 65 6e 64 20 69 | " & exp|on.end i|
|00001bc0| 66 0d 65 6e 64 20 6d 61 | 6e 74 45 78 70 0d 0d 2d |f.end ma|ntExp..-|
|00001bd0| 2d 4f 75 74 70 75 74 20 | 65 78 61 6d 70 6c 65 73 |-Output |examples|
|00001be0| 20 6d 61 6e 74 45 78 70 | 0d 2d 2d 20 31 30 20 2d | mantExp|.-- 10 -|
|00001bf0| 3e 20 32 2e 32 30 32 36 | 34 36 35 38 20 2a 20 31 |> 2.2026|4658 * 1|
|00001c00| 30 20 45 20 34 20 28 6d | 61 78 2e 20 38 20 64 65 |0 E 4 (m|ax. 8 de|
|00001c10| 63 69 6d 61 6c 73 20 69 | 6e 20 6d 61 74 69 73 73 |cimals i|n matiss|
|00001c20| 61 29 0d 2d 2d 20 39 2e | 39 38 37 2a 31 30 5e 31 |a).-- 9.|987*10^1|
|00001c30| 35 20 2d 3e 20 31 2e 30 | 30 37 20 2a 20 31 30 20 |5 -> 1.0|07 * 10 |
|00001c40| 45 20 34 33 33 37 32 39 | 38 39 39 30 37 36 37 37 |E 433729|89907677|
|00001c50| 37 36 0d 2d 2d 20 20 28 | 6d 61 6e 74 69 73 73 61 |76.--  (|mantissa|
|00001c60| 20 66 65 77 65 72 20 64 | 65 63 69 6d 61 6c 73 20 | fewer d|ecimals |
|00001c70| 63 6f 73 20 65 78 70 6f | 6e 65 6e 74 20 76 65 72 |cos expo|nent ver|
|00001c80| 79 20 62 69 67 29 0d 2d | 2d 20 39 2e 39 38 37 2a |y big).-|- 9.987*|
|00001c90| 31 30 5e 32 30 20 2d 3e | 20 31 30 20 45 20 28 34 |10^20 ->| 10 E (4|
|00001ca0| 2e 33 33 37 32 39 38 39 | 39 20 2a 31 30 45 20 32 |.3372989|9 *10E 2|
|00001cb0| 30 29 0d 2d 2d 20 20 28 | 65 78 70 6f 6e 65 6e 74 |0).--  (|exponent|
|00001cc0| 20 69 74 73 65 6c 66 20 | 69 73 20 61 20 31 30 45 | itself |is a 10E|
|00001cd0| 20 65 78 70 72 65 73 73 | 69 6f 6e 3b 20 6d 61 6e | express|ion; man|
|00001ce0| 74 69 73 73 61 20 6e 6f | 74 20 72 65 61 6c 69 73 |tissa no|t realis|
|00001cf0| 74 69 63 29 0d 2d 2d 20 | 6c 6e 28 31 2e 32 33 34 |tic).-- |ln(1.234|
|00001d00| 35 2a 31 30 5e 2d 31 30 | 30 29 20 2d 3e 20 31 2e |5*10^-10|0) -> 1.|
|00001d10| 32 33 34 35 20 2a 20 31 | 30 20 45 20 2d 31 30 30 |2345 * 1|0 E -100|
|00001d20| 0d 0d 2d 2d b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |..--....|........|
|00001d30| b0 b0 b0 b0 b0 b0 b0 20 | 65 6e 64 20 6f 66 20 56 |....... |end of V|
|00001d40| 4f 45 52 55 49 54 20 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |OERUIT .|........|
|00001d50| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00001d60| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 0d 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e80| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00001e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ea0| 00 18 49 d7 00 18 3f 57 | 00 18 4e db 00 03 e8 1d |..I...?W|..N.....|
|00001eb0| 00 18 36 67 00 18 3d 59 | 00 1a 83 26 00 06 e8 35 |..6g..=Y|...&...5|
|00001ec0| 00 06 2e 7d 00 06 6d 37 | 00 05 8d 38 00 06 b2 b4 |...}..m7|...8....|
|00001ed0| 00 09 4a fc 00 0b 26 68 | 00 07 f0 7c 00 08 9c 9c |..J...&h|...|....|
|00001ee0| 00 09 c8 d7 00 0a 7d ba | 00 0b 98 76 00 08 90 54 |......}.|...v...T|
|00001ef0| 00 05 ef 7f 00 06 28 9f | 00 06 69 3f 00 06 ac 87 |......(.|..i?....|
|00001f00| 00 06 e3 83 00 07 2b aa | 00 08 e3 72 00 09 bf 39 |......+.|...r...9|
|00001f10| 00 0b 91 59 00 0c 17 26 | 00 0a 8d fd 00 0b 18 11 |...Y...&|........|
|00001f20| 00 0f 30 c6 00 08 ef cb | 00 11 8c 45 00 09 44 66 |..0.....|...E..Df|
|00001f30| 00 07 30 8a 00 07 a7 ba | 00 07 af f7 00 0c 21 04 |..0.....|......!.|
|00001f40| 00 07 ec 4d 00 0c 69 e6 | 00 10 02 ec 00 10 0a a4 |...M..i.|........|
|00001f50| 00 0d c5 d3 00 0e ef 33 | 00 10 5f 76 00 0f d5 4b |.......3|.._v...K|
|00001f60| 00 11 9d 8a 00 12 02 fc | 00 12 74 8c 00 12 66 ed |........|..t...f.|
|00001f70| 00 11 f6 4f 00 13 c6 1a | 00 14 04 e3 00 13 66 9d |...O....|......f.|
|00001f80| 00 12 e6 81 00 12 f6 83 | 00 13 50 c2 00 13 fa 90 |........|..P.....|
|00001f90| 00 0c 5d f5 00 13 b6 78 | 00 14 36 61 00 14 61 4d |..]....x|..6a..aM|
|00001fa0| 00 14 2a 07 00 14 56 f5 | 00 0d 64 fa 00 0e 00 e9 |..*...V.|..d.....|
|00001fb0| 00 14 e1 92 00 0f 25 ce | 00 0f be 3c 00 10 71 cf |......%.|...<..q.|
|00001fc0| 00 03 e1 94 00 0d 72 fc | 00 14 e9 10 00 15 0c 83 |......r.|........|
|00001fd0| 00 15 90 fe 00 0d b7 d8 | 00 15 c2 34 00 15 01 f2 |........|...4....|
|00001fe0| 00 16 06 65 00 0e 0d 83 | 00 15 86 8a 00 0e de 0b |...e....|........|
|00001ff0| 00 17 a5 7f 00 16 72 f5 | 00 17 91 6f 00 16 30 92 |......r.|...o..0.|
|00002000| 00 15 ca 9a 00 16 39 0e | 00 15 fd 9a 00 16 67 b3 |......9.|......g.|
|00002010| 00 01 00 b2 00 01 04 c8 | 00 00 00 00 00 00 00 00 |........|........|
|00002020| 00 00 00 00 00 00 00 00 | 00 01 44 c5 00 01 84 c4 |........|..D.....|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002080| 00 00 00 80 4c 49 53 54 | 00 00 64 b2 00 00 00 00 |....LIST|..d.....|
|00002090| 00 00 00 03 00 00 08 00 | 00 00 00 2c 00 78 00 02 |........|...,.x..|
|000020a0| 00 1d 00 03 b8 00 0f 64 | 00 00 00 2c 00 00 00 00 |.......d|...,....|
|000020b0| 00 00 65 c8 00 10 00 00 | 6a c5 00 10 00 00 6b c4 |..e.....|j.....k.|
|000020c0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 08 00 50 41 47 45 | 00 00 65 c8 00 00 00 00 |....PAGE|..e.....|
|00002110| 00 00 64 b2 7d f2 b3 7e | 00 00 0b 1d e0 7f de fd |..d.}..~|........|
|00002120| f7 df ff ff ff ff 7f ff | de ef ef ef df ff ff ff |........|........|
|00002130| df fb bf ff ff fd ff ff | f7 ef 9e ff ff d7 7f df |........|........|
|00002140| fb ff 7f ff ff ff ff df | 73 f7 ff ff ff ff ef ff |........|s.......|
|00002150| f9 fe ff dd ff ff df ff | ff ff ed bf ff ff ff ff |........|........|
|00002160| fe ff ff ff ff cf df ff | ff ff 7f 7e ff ff ff ff |........|...~....|
|00002170| fb ff ff f7 ff ff f7 ff | ff ff ff 97 ff df ef bf |........|........|
|00002180| d7 ff fd ff ff bf 7e 6e | ff ff ff fd bf ff ff ff |......~n|........|
|00002190| 00 00 0e 26 a0 06 04 04 | 40 86 48 c0 8b 10 82 01 |...&....|@.H.....|
|000021a0| 90 81 00 80 00 01 a5 00 | 94 a8 04 05 01 c0 42 40 |........|......B@|
|000021b0| 11 00 01 06 71 01 a0 00 | 20 28 40 26 41 0e 10 81 |....q...| (@&A...|
|000021c0| 06 04 80 10 84 81 02 1c | c0 00 60 04 61 20 80 08 |........|..`.a ..|
|000021d0| 08 06 ac 28 35 54 12 58 | b4 2c ac 2b 04 02 00 50 |...(5T.X|.,.+...P|
|000021e0| 48 04 06 32 25 22 83 02 | 10 0e 2d 20 02 1d 31 00 |H..2%"..|..- ..1.|
|000021f0| 30 02 10 03 00 41 00 c5 | 82 0c 40 81 08 10 03 02 |0....A..|..@.....|
|00002200| 04 09 8d b5 80 80 50 22 | 00 00 12 38 a0 03 04 08 |......P"|...8....|
|00002210| 00 02 4c 40 03 10 00 41 | d0 01 10 82 01 11 84 00 |..L@...A|........|
|00002220| 80 20 04 05 21 c0 40 80 | 00 44 01 04 21 01 40 00 |. ..!.@.|.D..!.@.|
|00002230| 22 20 00 22 40 08 00 82 | 03 00 40 01 80 01 00 04 |" ."@...|..@.....|
|00002240| 00 00 60 07 71 00 00 00 | 08 02 8c 28 20 16 02 40 |..`.q...|...( ..@|
|00002250| 91 0e a0 2b 30 02 08 50 | 00 00 00 10 21 20 83 12 |...+0..P|....! ..|
|00002260| 10 06 21 40 00 04 11 04 | 00 00 00 01 14 45 00 80 |..!@....|.....E..|
|00002270| 82 00 00 00 09 14 02 00 | 00 29 89 01 81 0c 91 22 |........|.)....."|
|00002280| 00 00 10 7d a0 02 10 08 | 00 42 c2 00 0b 58 10 01 |...}....|.B...X..|
|00002290| d0 89 01 82 01 25 0c 00 | 04 e8 01 15 01 c4 50 40 |.....%..|......P@|
|000022a0| 08 00 61 03 20 01 0c 80 | 28 00 02 22 61 78 01 10 |..a. ...|(.."ax..|
|000022b0| 42 02 14 00 85 10 80 19 | c0 22 40 0c 61 00 84 4c |B.......|."@.a..L|
|000022c0| 0d 24 0c 20 40 50 82 08 | 18 0e a0 60 0d 42 83 40 |.$. @P..|...`.B.@|
|000022d0| 08 83 02 72 65 1b 8b 06 | 41 00 01 02 88 10 31 00 |...re...|A.....1.|
|000022e0| 08 a4 09 0b 00 65 88 80 | 87 08 08 89 09 14 0a 00 |.....e..|........|
|000022f0| 00 08 8d 05 00 88 40 20 | 00 00 11 37 a0 02 08 01 |......@ |...7....|
|00002300| 10 02 c2 00 83 10 02 30 | c0 89 01 82 00 21 04 40 |.......0|.....!.@|
|00002310| 44 e3 00 1c 00 80 40 00 | 01 00 01 00 28 00 00 80 |D.....@.|....(...|
|00002320| 20 00 c2 22 70 1f 00 db | 02 00 80 08 86 10 00 00 | .."p...|........|
|00002330| 00 00 61 05 61 10 00 50 | 08 04 4d 20 00 50 00 4c |..a.a..P|..M .P.L|
|00002340| 92 0e a4 24 25 42 00 44 | 00 4c 02 02 65 20 83 22 |...$%B.D|.L..e ."|
|00002350| d0 01 45 00 10 32 71 21 | 00 04 09 21 00 45 00 88 |..E..2q!|...!.E..|
|00002360| 83 00 00 0b 09 14 0c 08 | a2 08 0d 01 00 18 90 20 |........|....... |
|00002370| 00 00 13 b4 a0 02 04 10 | 20 02 6a 40 03 31 00 00 |........| .j@.1..|
|00002380| d0 81 00 82 00 81 04 00 | 80 a0 0c 04 00 c0 40 00 |........|......@.|
|00002390| 00 49 01 04 21 00 00 00 | 20 20 41 32 60 0a 02 00 |.I..!...|  A2`...|
|000023a0| 02 00 80 00 84 43 00 04 | 01 00 60 04 61 00 00 28 |.....C..|..`.a..(|
|000023b0| 4c 22 ec 28 00 52 00 08 | 90 0e a0 6b 00 c2 08 50 |L".(.R..|...k...P|
|000023c0| 00 00 00 1a 25 30 83 12 | 18 06 21 40 00 14 31 00 |....%0..|..!@..1.|
|000023d0| 00 01 08 01 00 05 00 80 | 82 00 40 03 89 10 00 00 |........|..@.....|
|000023e0| 00 09 0d 09 00 08 10 22 | 00 00 0f 35 a0 03 24 00 |......."|...5..$.|
|000023f0| 20 87 ea 40 0b 10 39 40 | df 89 c1 82 01 71 07 20 | ..@..9@|.....q. |
|00002400| c4 e6 1c 8d 00 d0 40 14 | 00 10 09 04 39 04 00 c0 |......@.|....9...|
|00002410| 28 20 e2 22 c0 0e 02 84 | 02 40 e0 07 c4 81 04 04 |( ."....|.@......|
|00002420| 00 40 60 04 69 00 00 28 | 0c 86 ac 29 e0 56 30 48 |.@`.i..(|...).V0H|
|00002430| 98 2e a3 6b 20 52 01 50 | 50 14 00 16 ed 20 c3 12 |...k R.P|P.... ..|
|00002440| 18 06 a7 40 11 16 75 80 | 40 04 c9 01 15 45 40 80 |...@..u.|@....E@.|
|00002450| bb 00 00 09 8b 34 48 02 | 00 a9 0d 0d c0 48 d0 22 |.....4H.|.....H."|
|00002460| 00 00 2c 8a a0 02 04 80 | 34 42 2c 00 0b f0 3b 21 |..,.....|4B,...;!|
|00002470| c1 48 10 40 5c 31 50 10 | 80 22 0f 44 55 94 ee 23 |.H.@\1P.|.".DU..#|
|00002480| 02 a1 42 01 2a 41 45 85 | aa 24 8a 22 d3 42 00 d3 |..B.*AE.|.$.".B..|
|00002490| 56 22 54 92 1c cb 22 05 | 01 00 40 04 70 86 d0 2a |V"T...".|..@.p..*|
|000024a0| 54 e8 ad a0 38 53 42 a0 | 50 08 2c f8 01 8a 28 40 |T...8SB.|P.,...(@|
|000024b0| 04 c8 81 40 64 30 eb 13 | 82 b0 25 16 01 19 01 01 |...@d0..|..%.....|
|000024c0| 40 a1 00 11 55 05 44 84 | 02 02 08 ae 01 14 4a 04 |@...U.D.|......J.|
|000024d0| cc 31 8b 08 80 88 01 00 | 00 00 2e f7 a0 01 80 04 |.1......|........|
|000024e0| 30 80 18 10 03 d4 70 30 | 90 88 00 28 12 11 10 00 |0.....p0|...(....|
|000024f0| 80 28 0e 05 01 91 4c 07 | 02 00 08 00 40 45 01 80 |.(....L.|....@E..|
|00002500| 22 00 4a 26 41 04 40 d2 | 1c 33 11 00 00 49 32 00 |".J&A.@.|.3...I2.|
|00002510| 00 40 02 00 41 06 d4 3a | 24 08 24 2a 21 11 12 e0 |.@..A..:|$.$*!...|
|00002520| 10 2a 29 92 05 8a 00 40 | 04 04 80 60 61 20 81 12 |.*)....@|...`a ..|
|00002530| 03 82 24 44 03 10 31 20 | 41 24 04 00 84 40 00 41 |..$D..1 |A$...@.A|
|00002540| 42 01 00 a2 00 44 01 44 | c8 08 13 8c 80 88 01 00 |B....D.D|........|
|00002550| 00 00 16 7c a0 53 44 88 | 75 cf 2c f4 e3 d6 32 61 |...|.SD.|u.,...2a|
|00002560| d6 c9 a1 ca 87 71 8d 18 | d0 eb 0f 15 15 dc 60 dd |.....q..|......`.|
|00002570| 40 b1 06 07 b5 44 0d c1 | 20 22 4b 32 61 73 32 f6 |@....D..| "K2as2.|
|00002580| 57 33 9c c3 1c df e3 1c | 4d 42 22 1d 6d 15 d0 7a |W3......|MB".m..z|
|00002590| 6c 6a ed b9 2c 5e 50 c6 | da 0a fe fb 3f 8a c9 50 |lj..,^P.|....?..P|
|000025a0| 74 91 05 56 75 be bf 76 | 7b 96 20 c7 09 9e 37 01 |t..Vu..v|{. ...7.|
|000025b0| c8 ed 08 87 57 c5 4c e0 | 52 08 35 ab 95 15 6b 4e |....W.L.|R.5...kN|
|000025c0| ea 99 eb ad 88 08 d3 12 | 00 00 17 9c a0 03 20 00 |........|...... .|
|000025d0| d0 02 2a 00 81 10 30 40 | 40 89 00 c2 11 40 05 10 |..*...0@|@....@..|
|000025e0| 90 2b a4 01 10 d4 40 c7 | 00 01 07 02 24 00 07 41 |.+....@.|....$..A|
|000025f0| 24 20 43 22 49 f2 00 23 | 52 22 94 09 01 c0 80 00 |$ C"I..#|R"......|
|00002600| 40 42 a2 1d 20 10 d0 3a | 08 60 cc a0 31 16 00 84 |@B.. ..:|.`..1...|
|00002610| 3c 2a a0 3a 25 8a 40 41 | 00 a1 20 02 60 06 8b 02 |<*.:%.@A|.. .`...|
|00002620| 50 06 20 20 80 18 01 00 | e8 4c 00 85 11 45 02 80 |P.  ....|.L...E..|
|00002630| 12 08 00 89 03 54 02 00 | 43 19 8b 24 80 aa 90 00 |.....T..|C..$....|
|00002640| 00 00 29 cb a0 10 00 00 | b1 83 09 10 0b d7 31 29 |..).....|......1)|
|00002650| 40 0b 00 a8 87 10 c4 0a | 80 20 0d bc 90 90 46 13 |@.......|. ....F.|
|00002660| 02 01 00 00 24 c0 05 90 | 22 08 6a a2 c1 42 16 52 |....$...|".j..B.R|
|00002670| 5a 32 12 02 04 ef 22 00 | 01 40 00 04 60 45 d1 27 |Z2....".|.@..`E.'|
|00002680| 4c ac 24 20 00 56 b8 88 | 94 0a 2b be 07 8a 09 76 |L.$ .V..|..+....v|
|00002690| 48 88 0e 5c 61 2c c1 12 | 42 94 2b 04 21 10 01 04 |H..\a,..|B.+.!...|
|000026a0| 46 22 00 83 06 84 40 85 | 42 00 01 a4 41 16 4a 6c |F"....@.|B...A.Jl|
|000026b0| e8 08 cb b8 28 9b 6b 00 | 00 00 14 fc a0 22 8e c8 |....(.k.|....."..|
|000026c0| b6 8f 6a d0 c7 d0 35 29 | d1 89 10 c8 8e 57 4d 10 |..j...5)|.....WM.|
|000026d0| 90 aa af dd 24 d0 e6 5f | 42 31 31 04 bb 40 07 90 |....$.._|B11..@..|
|000026e0| 22 20 5b e2 e5 5f 4e 57 | 56 62 d1 82 bd fb 32 5d |" [.._NW|Vb....2]|
|000026f0| 89 40 e1 14 61 45 d0 7b | 4c 8a ed a9 bd 56 d1 a8 |.@..aE.{|L....V..|
|00002700| da 2e ee bb 27 8a 89 52 | 00 cc 30 56 67 6b cb 52 |....'..R|..0Vgk.R|
|00002710| 52 86 a5 0f fd 5e 33 03 | 68 a0 01 0b 47 87 46 85 |R....^3.|h...G.F.|
|00002720| 82 28 84 ab c9 17 4b 6e | c9 3b 8f 2d 88 9e 53 22 |.(....Kn|.;.-..S"|
|00002730| 00 00 18 d7 a0 12 00 00 | f0 83 0e 10 4b d4 39 25 |........|....K.9%|
|00002740| 46 89 26 db 07 50 05 16 | 94 68 0f 8d 93 d0 4e 97 |F.&..P..|.h....N.|
|00002750| 42 11 46 00 67 c1 05 c4 | 02 a8 7e 22 e1 76 02 7f |B.F.g...|..~".v..|
|00002760| 52 32 54 43 44 5b 26 02 | 11 40 20 45 61 14 f0 26 |R2TCD[&.|.@ Ea..&|
|00002770| 49 a8 a4 a0 70 53 7a a0 | b0 0a 3b fa 29 8a 69 6c |I...pSz.|..;.).il|
|00002780| 01 8f 04 46 64 34 c9 96 | 81 a2 65 0c 05 12 01 88 |...Fd4..|..e.....|
|00002790| e6 20 80 e7 57 a6 48 8c | c6 00 04 a4 05 1c 4e 64 |. ..W.H.|......Nd|
|000027a0| e8 09 eb 08 80 99 f5 00 | 00 00 26 fd a0 00 16 40 |........|..&....@|
|000027b0| b0 8b 88 d4 bb d2 3d 61 | 50 8d 84 2a 02 30 dc 08 |......=a|P..*.0..|
|000027c0| 90 a9 4d 85 02 d0 47 57 | 22 83 48 04 43 40 49 18 |..M...GW|".H.C@I.|
|000027d0| 22 86 da 2a 41 06 02 db | 5e 33 10 42 4e cd 22 9c |"..*A...|^3.BN.".|
|000027e0| 80 40 28 54 61 44 d3 ae | 1a 9a 64 28 a0 55 84 8c |.@(TaD..|..d(.U..|
|000027f0| 34 0b ab bf 85 8a 87 5f | 98 a5 14 52 65 b8 e3 ba |4......_|...Re...|
|00002800| 50 86 65 04 31 1c 31 21 | 44 34 20 61 57 c4 64 8c |P.e.1.1!|D4 aW.d.|
|00002810| 42 02 45 a1 01 d6 6f 46 | c8 28 cf 09 81 8a 35 00 |B.E...oF|.(....5.|
|00002820| 00 00 15 68 a0 44 40 e9 | ad cb 28 94 6d df 71 31 |...h.D@.|..(.m.q1|
|00002830| 04 8d 41 c8 84 f0 75 30 | 82 a8 2d e6 43 98 64 3b |..A...u0|..-.C.d;|
|00002840| 44 f2 01 02 6c 41 c5 90 | 64 9a 5f fa 45 57 4a d7 |D...lA..|d._.EWJ.|
|00002850| 53 22 10 22 2c 59 2e 46 | 68 84 35 15 65 54 de 6e |S".",Y.F|h.5.eT.n|
|00002860| 1c c8 64 a1 1d 55 c7 c2 | d3 2a ee f9 2d da 99 76 |..d..U..|.*..-..v|
|00002870| 48 dc 20 4f 65 ee d1 d2 | 6a d8 c5 77 6f 1e 63 a6 |H. Oe...|j..wo.c.|
|00002880| 5c 80 02 03 67 c4 c4 84 | 42 0a 43 fb 84 17 fb 6c |\...g...|B.C....l|
|00002890| ca 1c 8f 2d 09 da f5 a0 | 00 00 00 00 00 00 00 00 |...-....|........|
|000028a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 08 00 50 41 47 45 | 00 00 6a c5 00 00 00 00 |....PAGE|..j.....|
|00002910| 00 00 64 b2 cc b8 52 67 | 00 00 1a 76 a0 29 60 b8 |..d...Rg|...v.)`.|
|00002920| ac 87 2a 9b 73 9a 3b 61 | 18 8d a5 c3 e5 34 dd 1b |..*.s.;a|.....4..|
|00002930| c4 af 0c 45 e5 98 ee ff | 4b f1 42 03 78 47 25 d0 |...E....|K.B.xG%.|
|00002940| 28 07 4b a3 77 56 0a f7 | d3 62 35 13 f5 4f 2b b1 |(.K.wV..|.b5..O+.|
|00002950| 49 41 31 55 71 51 fc ea | dd ac e5 a3 7d 5f d2 c6 |IA1UqQ..|....}_..|
|00002960| d8 2e ee b5 3f cb a3 4e | 8c d0 82 5a 75 7a f9 92 |....?..N|...Zuz..|
|00002970| 6b 91 31 27 35 3b 13 09 | 54 f5 01 51 47 c8 c2 9f |k.1'5;..|T..QG...|
|00002980| c3 3d ac bb a0 35 6b 7c | ca 39 cb 2d ca ca f7 00 |.=...5k||.9.-....|
|00002990| 00 00 2f 04 a0 0b 60 a9 | 04 02 00 0c 70 10 33 25 |../...`.|....p.3%|
|000029a0| 10 ca 90 c5 91 42 10 12 | 92 30 01 14 89 97 64 0b |.....B..|.0....d.|
|000029b0| 51 10 20 00 a8 40 01 00 | 00 20 6a a2 c7 56 00 47 |Q. ..@..|. j..V.G|
|000029c0| 56 67 3c 02 e0 40 2a 01 | 08 01 31 06 62 00 f5 60 |Vg<..@*.|..1.b..`|
|000029d0| 14 a0 84 22 48 11 c0 80 | 50 0c 69 d5 89 8a 08 56 |..."H...|P.i....V|
|000029e0| 18 c8 0a 08 e5 79 91 86 | 03 01 20 07 11 72 07 20 |.....y..|.. ..r. |
|000029f0| 64 60 40 13 40 30 80 80 | 8a 68 88 c2 84 2d 06 41 |d`@.@0..|.h...-.A|
|00002a00| 4c 29 cb 0a 08 0a 51 08 | 00 00 31 e6 a0 46 44 a8 |L)....Q.|..1..FD.|
|00002a10| 00 02 93 de 6b 9a 31 75 | b0 cb 95 e7 15 21 15 33 |....k.1u|.....!.3|
|00002a20| 83 71 07 15 c7 d9 e2 4f | 80 c0 6d 51 73 c5 65 80 |.q.....O|..mQs.e.|
|00002a30| 20 24 76 b2 af 56 82 df | 5b 22 96 02 74 55 29 08 | $v..V..|["..tU).|
|00002a40| 19 40 71 55 75 55 fc 68 | 1c e0 85 2d e9 59 d3 82 |.@qUuU.h|...-.Y..|
|00002a50| 80 2a a5 f6 33 ca 4f d7 | 28 ad 17 50 e1 79 91 a6 |.*..3.O.|(..P.y..|
|00002a60| 69 11 a5 67 0d 3f 31 b5 | 55 32 c0 33 40 e4 c8 bc |i..g.?1.|U2.3@...|
|00002a70| 42 4d 89 df e1 3e 1f 68 | e8 19 87 20 81 5b d7 0c |BM...>.h|... .[..|
|00002a80| 00 00 51 fc a0 04 44 00 | 00 14 00 00 01 10 90 10 |..Q...D.|........|
|00002a90| 00 01 00 20 00 01 05 12 | 80 00 00 81 09 80 40 41 |... ....|......@A|
|00002aa0| 40 81 08 00 11 40 80 00 | 00 00 00 a2 05 44 10 86 |@....@..|.....D..|
|00002ab0| 10 22 74 02 20 42 10 00 | 01 00 00 05 00 00 d1 40 |."t. B..|.......@|
|00002ac0| 48 00 04 20 20 12 50 d0 | 40 00 c0 00 21 2a 00 44 |H..  .P.|@...!*.D|
|00002ad0| 20 80 00 00 21 60 91 00 | 03 00 20 00 04 00 83 00 | ...!`..|.. .....|
|00002ae0| 40 20 00 01 40 60 80 80 | 02 00 02 82 00 11 00 40 |@ ..@`..|.......@|
|00002af0| 40 00 07 00 80 00 80 00 | 00 00 34 d3 a0 00 40 00 |@.......|..4...@.|
|00002b00| 10 81 0a 06 27 11 30 21 | 83 89 02 04 01 00 84 00 |....'.0!|........|
|00002b10| 80 20 04 04 09 90 44 13 | c3 80 01 01 08 40 01 00 |. ....D.|.....@..|
|00002b20| 22 20 40 22 51 4e 02 02 | 10 22 90 04 20 41 2d 00 |" @"QN..|.".. A-.|
|00002b30| 00 40 00 04 61 00 d1 60 | 08 00 85 a0 48 18 00 c1 |.@..a..`|....H...|
|00002b40| c0 08 ca 30 09 8a 01 42 | 00 00 00 08 21 20 91 04 |...0...B|....! ..|
|00002b50| 02 00 21 10 01 10 17 01 | 61 40 00 01 42 00 c0 81 |..!.....|a@..B...|
|00002b60| 02 08 80 d0 a5 13 42 40 | 48 01 83 08 02 80 01 28 |......B@|H......(|
|00002b70| 00 00 59 83 a0 23 d4 0c | 24 e7 49 45 4f 19 7c 69 |..Y..#..|$.IEO.|i|
|00002b80| f3 cd 36 e8 07 65 85 10 | 96 b0 0f 17 15 d0 60 1f |..6..e..|......`.|
|00002b90| 40 b1 20 07 a1 c4 03 20 | 2a 24 4e 6b 43 57 97 c7 |@. .... |*$NkCW..|
|00002ba0| 12 e3 b4 9a 30 5b e2 1c | 0c 43 f8 07 65 20 da e3 |....0[..|.C..e ..|
|00002bb0| 0d 2a ed eb e9 33 50 c3 | da ae ea 7f 25 8a 8b d6 |.*...3P.|....%...|
|00002bc0| 50 81 af d8 f5 be b3 56 | 3e 9e 61 bf 1d 1f 1b 49 |P......V|>.a....I|
|00002bd0| c1 60 88 93 55 45 c8 c0 | 56 9b 0a ab 21 57 46 4d |.`..UE..|V...!WFM|
|00002be0| d8 1d eb 2d bc 0a d5 43 | 00 00 35 33 a0 00 40 80 |...-...C|..53..@.|
|00002bf0| 00 00 00 06 25 11 11 21 | 82 01 00 84 91 10 84 02 |....%..!|........|
|00002c00| 80 60 00 01 09 88 40 41 | 40 01 01 01 a0 40 00 c0 |.`....@A|@....@..|
|00002c10| 08 23 62 b2 01 5e 00 03 | 11 23 18 05 22 40 2c 00 |.#b..^..|.#.."@,.|
|00002c20| 20 40 00 04 20 00 d1 40 | 0c 00 84 31 6d 58 00 80 | @.. ..@|...1mX..|
|00002c30| c8 2a e8 20 01 8a 08 c6 | 00 88 08 08 61 00 91 04 |.*. ....|....a...|
|00002c40| 12 00 00 22 01 20 07 00 | 60 42 00 01 44 00 84 80 |...". ..|`B..D...|
|00002c50| 02 08 81 d0 bd 1d 0e 40 | 48 09 83 0b 90 18 01 28 |.......@|H......(|
|00002c60| 00 00 28 c6 a0 50 48 04 | 10 8b 09 07 6d 93 30 63 |..(..PH.|....m.0c|
|00002c70| 83 4d 63 8d 11 09 85 03 | 90 25 06 43 05 d8 44 d3 |.Mc.....|.%.C..D.|
|00002c80| 42 83 07 01 27 51 29 c4 | 02 28 12 36 51 7c 82 83 |B...'Q).|.(.6Q|..|
|00002c90| 13 22 11 15 24 41 b4 08 | 11 50 20 1d 60 51 d2 e0 |."..$A..|.P .`Q..|
|00002ca0| 0a 20 a5 a8 69 5a 22 cd | d0 28 ea 30 21 da 49 e6 |. ..iZ".|.(.0!.I.|
|00002cb0| 20 90 00 08 75 a8 95 86 | 42 12 a1 70 01 90 03 99 | ...u...|B..p....|
|00002cc0| 60 01 e0 05 56 c4 c0 80 | 03 0b 80 d4 a5 15 7a 44 |`...V...|......zD|
|00002cd0| 48 9b 8b 38 80 8a 85 6c | 00 00 37 4b a0 10 40 20 |H..8...l|..7K..@ |
|00002ce0| 24 00 00 00 23 d0 30 20 | 02 08 4c 49 01 50 88 20 |$...#.0 |..LI.P. |
|00002cf0| c0 a0 08 44 81 90 60 41 | 40 51 00 02 40 40 01 40 |...D..`A|@Q..@@.@|
|00002d00| 00 21 0a 22 23 5c 08 52 | 96 22 10 00 24 db 32 00 |.!."#\.R|."..$.2.|
|00002d10| 19 00 20 41 40 44 d0 62 | 40 08 a4 80 08 12 20 a0 |.. A@D.b|@..... .|
|00002d20| 5c 0c 4d f0 21 8e 02 70 | 20 0c 00 40 65 20 d1 90 |\.M.!..p| ..@e ..|
|00002d30| 02 80 45 14 03 10 03 51 | 40 01 01 00 44 40 c0 00 |..E....Q|@...D@..|
|00002d40| 82 00 02 a2 00 44 0c 44 | c8 01 03 19 00 00 c1 20 |.....D.D|....... |
|00002d50| 00 00 33 a4 a0 16 40 82 | e1 0a 00 85 ab d8 33 2d |..3...@.|......3-|
|00002d60| b1 c9 40 8c 55 51 55 00 | 8c 60 8b 44 c1 d0 6a 93 |..@.UQU.|.`.D..j.|
|00002d70| 43 b1 c4 03 b4 41 0d c0 | 28 24 4a b7 03 57 04 db |C....A..|($J..W..|
|00002d80| 58 62 b8 82 27 5b 32 19 | a1 44 32 95 75 47 d8 eb |Xb..'[2.|.D2.uG..|
|00002d90| 6d 88 a5 28 49 53 22 a8 | 7e 2d ea d5 37 8e 00 70 |m..(IS".|~-..7..p|
|00002da0| 70 d0 81 50 65 2e d1 54 | 72 92 20 26 9d 90 13 3d |p..Pe..T|r. &...=|
|00002db0| 64 90 70 01 54 c0 e0 80 | 42 0e 98 e2 80 54 6b 4e |d.p.T...|B....TkN|
|00002dc0| c8 89 83 6c 62 0a d3 0a | 00 00 4f cf a0 4a 56 cc |...lb...|..O..JV.|
|00002dd0| 06 cb fc b4 4f f9 77 f9 | 9b cd 57 db 85 7f ed 06 |....O.w.|..W.....|
|00002de0| cc 63 9f b3 df da 4e 76 | 56 dd 7f 92 f2 45 67 d4 |.c....Nv|V....Eg.|
|00002df0| 3a 47 52 ae 71 77 87 93 | 47 72 9a ce b7 db ef 19 |:GR.qw..|Gr......|
|00002e00| d1 4b 66 1d 75 81 8f e9 | ff ea ed 35 3d 5f d2 9a |.Kf.u...|...5=_..|
|00002e10| de ee db 73 67 c6 8b 55 | 99 f4 02 48 f9 fb ff cb |...sg..U|...H....|
|00002e20| be 1c f5 33 b9 9e b7 bf | fa 6d a5 01 44 ad dc 80 |...3....|.m..D...|
|00002e30| 13 aa a5 be f0 37 7f ca | 48 9a bb 1f a8 42 d9 0e |.....7..|H....B..|
|00002e40| 00 00 38 8a a0 14 44 82 | 24 46 80 c7 a7 d1 3a 29 |..8...D.|$F....:)|
|00002e50| b2 c9 44 4f 87 75 95 00 | 89 60 8b 15 dd d8 ee 17 |..DO.u..|.`......|
|00002e60| 43 b1 09 03 f4 41 09 80 | 08 05 4b 33 31 4f 04 d3 |C....A..|..K31O..|
|00002e70| 13 63 d9 c4 3d 6b 6e 01 | 31 42 21 d5 65 45 d9 f3 |.c..=kn.|1B!.eE..|
|00002e80| 6c 38 24 31 fd 5a 72 e1 | da 2e eb f2 27 8e 88 6a |l8$1.Zr.|....'..j|
|00002e90| 50 92 a3 48 65 22 f9 f0 | 02 91 80 26 95 18 27 18 |P..He"..|...&..'.|
|00002ea0| 45 51 11 01 44 40 e4 80 | 82 0e 85 fa a1 15 6e 4c |EQ..D@..|......nL|
|00002eb0| e8 38 83 0c a2 18 d1 aa | 00 00 39 fc a0 42 82 88 |.8......|..9..B..|
|00002ec0| 62 86 5c 96 67 d3 33 7d | 93 cd 11 46 c1 70 dd 51 |b.\.g.3}|...F.p.Q|
|00002ed0| 84 f2 4d 55 c9 98 ce 79 | 60 b3 6e 01 b6 45 0d 84 |..MU...y|`.n..E..|
|00002ee0| 28 24 0a b2 45 5e 04 57 | 5b 32 18 46 36 c9 ae 21 |($..E^.W|[2.F6..!|
|00002ef0| 0c 43 61 1c 61 45 d3 e3 | 0d bc a5 31 e9 5f d2 88 |.Ca.aE..|...1._..|
|00002f00| f0 08 ec f0 25 ca 89 42 | 4c 54 81 48 61 e2 99 b3 |....%..B|LT.Ha...|
|00002f10| 72 a9 8c 47 c1 53 37 09 | 64 cf c1 01 54 04 a4 81 |r..G.S7.|d...T...|
|00002f20| 43 1a 84 f3 a1 fd 4b 0c | ed 01 8b 6d c8 08 47 2a |C.....K.|...m..G*|
|00002f30| 00 00 3a 8c a0 42 d2 c8 | ed 0f 38 27 67 ff 30 6d |..:..B..|..8'g.0m|
|00002f40| 16 cd 05 cf 47 35 9d 5a | 97 e0 0d 05 99 d8 e1 df |....G5.Z|........|
|00002f50| 50 23 07 04 ff 41 05 d0 | ac 29 4e a2 05 f6 4c 57 |P#...A..|.)N...LW|
|00002f60| 5b 27 bc 04 7c 59 af 7c | 09 45 31 15 71 56 db ea |['..|Y.||.E1.qV..|
|00002f70| 8f 0d a5 28 69 5b d3 9b | f0 4e 6c 9d 35 ca c9 f4 |...(i[..|.Nl.5...|
|00002f80| 58 9e 83 68 f5 fa f9 90 | 03 d6 84 57 79 9b ff 99 |X..h....|...Wy...|
|00002f90| 64 6c 81 d7 d5 c8 90 c6 | 47 5a 89 fc a1 9f 2b 44 |dl......|GZ....+D|
|00002fa0| c8 19 c7 7f 88 1b f7 1e | 00 00 41 83 a0 52 8d 84 |........|..A..R..|
|00002fb0| 70 16 90 91 cf f7 78 7f | 14 89 41 4a 02 34 9d 1c |p.....x.|..AJ.4..|
|00002fc0| c5 e3 4c c5 91 f2 c0 47 | 40 a1 0d 00 35 44 05 90 |..L....G|@...5D..|
|00002fd0| 00 28 4e 22 45 46 0e f3 | 7e 6a 90 40 34 4b 6b 2a |.(N"EF..|~j.@4Kk*|
|00002fe0| 01 43 33 05 60 44 d0 7b | cf 1c a5 28 23 5b d0 d1 |.C3.`D.{|...(#[..|
|00002ff0| 78 7a f9 b9 35 8e c7 60 | 58 04 06 48 60 22 f9 92 |xz..5..`|X..H`"..|
|00003000| 22 dc 24 6e 01 99 2b 11 | 64 0c 01 05 56 40 c0 82 |".$n..+.|d...V@..|
|00003010| 43 88 c0 b8 23 bd 3a 0c | da 49 cb 4c 80 09 b1 00 |C...#.:.|.I.L....|
|00003020| 00 00 3f 9d a0 0a 82 00 | e0 02 08 10 45 d5 30 25 |..?.....|....E.0%|
|00003030| 31 c9 91 08 41 10 84 02 | 94 e2 08 05 d1 90 42 f5 |1...A...|......B.|
|00003040| 40 82 16 01 a4 51 05 50 | 28 00 6a a2 43 76 00 5f |@....Q.P|(.j.Cv._|
|00003050| 50 32 9c 00 39 c9 a6 00 | 00 c3 41 55 e5 44 d0 62 |P2..9...|..AU.D.b|
|00003060| 2b 18 25 20 61 1d 22 91 | 72 88 fe 94 21 8a c0 46 |+.% a.".|r...!..F|
|00003070| 14 94 00 48 71 2a d9 90 | 83 82 24 04 31 15 13 01 |...Hq*..|..$.1...|
|00003080| 74 60 08 05 56 90 00 80 | 02 02 89 b0 20 3d 40 44 |t`..V...|.... =@D|
|00003090| c8 08 03 88 90 10 85 02 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 08 00 50 41 47 45 | 00 00 6b c4 00 00 00 00 |....PAGE|..k.....|
|00003110| 00 00 64 b2 ba bb db a5 | 00 00 3d 1a a0 44 40 04 |..d.....|..=..D@.|
|00003120| 80 00 a0 96 65 13 20 21 | 8a 89 09 07 03 79 8d 02 |....e. !|.....y..|
|00003130| 82 68 26 01 8d 90 48 4e | c0 f1 10 4b a0 52 81 80 |.h&...HN|...K.R..|
|00003140| 40 80 42 aa 25 4e 42 c5 | 00 22 9c 04 70 41 6d 00 |@.B.%NB.|."..pAm.|
|00003150| 44 41 21 14 68 51 81 e0 | 4e 0c 26 60 69 5a 46 d8 |DA!.hQ..|N.&`iZF.|
|00003160| c8 2a e7 6a 0c 82 89 56 | 14 9e 00 08 61 60 99 c0 |.*.j...V|....a`..|
|00003170| 0b 00 04 60 01 00 47 1d | f0 e4 01 41 40 40 80 c2 |...`..G.|...A@@..|
|00003180| 43 69 c8 fb a1 16 0e 60 | 49 08 c3 0c c0 56 d1 3a |Ci.....`|I....V.:|
|00003190| 00 00 3e e3 a0 02 00 00 | 24 08 04 c0 03 10 10 20 |..>.....|$...... |
|000031a0| 90 01 20 00 00 00 15 00 | 88 00 08 14 01 90 70 07 |.. .....|......p.|
|000031b0| 02 a9 06 00 40 01 00 c0 | 80 00 68 23 11 04 00 c2 |....@...|..h#....|
|000031c0| 94 62 10 03 32 43 2a 60 | 81 03 b0 14 50 00 f8 32 |.b..2C*`|....P..2|
|000031d0| 48 00 a5 20 14 12 82 e0 | 10 00 ac 01 11 0a 02 60 |H.. ....|.......`|
|000031e0| d0 04 08 04 a5 21 d9 01 | 00 00 06 04 15 00 01 00 |.....!..|........|
|000031f0| 40 94 01 81 00 40 40 80 | 02 24 02 a8 00 12 02 08 |@....@@.|.$......|
|00003200| 4a 0a 03 48 00 08 15 80 | 00 00 46 61 a0 02 00 01 |J..H....|..Fa....|
|00003210| 00 80 00 80 01 10 10 00 | 00 01 00 00 00 00 14 01 |........|........|
|00003220| 80 00 00 00 01 a0 e0 81 | 02 80 04 00 40 01 00 40 |........|....@..@|
|00003230| 80 00 02 23 01 04 00 02 | 50 62 10 00 30 40 00 20 |...#....|Pb..0@. |
|00003240| 00 00 00 18 40 00 d8 00 | 48 00 04 00 00 9d 02 80 |....@...|H.......|
|00003250| 00 00 a8 00 01 0a 00 64 | 40 00 00 00 60 20 9b 00 |.......d|@...` ..|
|00003260| 00 00 02 00 14 40 01 00 | 40 10 80 00 c0 20 00 04 |.....@..|@.... ..|
|00003270| 02 0c 80 94 04 14 02 00 | 44 00 03 74 00 08 02 00 |........|D..t....|
|00003280| 00 00 47 4d a0 4e c4 0d | 8f ca 68 c4 5f 97 3b 67 |..GM.N..|..h._.;g|
|00003290| 13 cb 4f 4a 73 04 9e 33 | 98 68 68 11 d9 b9 fe cf |..OJs..3|.hh.....|
|000032a0| 73 84 16 59 6f c1 2d d8 | c0 00 66 a7 35 f6 4c 07 |s..Yo.-.|..f.5.L.|
|000032b0| 52 f2 35 27 73 5b 6d 4c | d8 63 35 7d 6b 5a dd e0 |R.5's[mL|.c5}kZ..|
|000032c0| 7f 21 bd 28 6d 7d 4a 82 | fc 3a ec 3b 35 ea ce 7d |.!.(m}J.|.:.;5..}|
|000032d0| 2d bf 93 60 e9 f6 df aa | 13 3b a5 a1 b5 bf 33 8b |-..`....|.;....3.|
|000032e0| 4f 70 e1 c5 d3 a3 c4 84 | c2 25 ac 92 51 3f 3c 4e |Op......|.%..Q?<N|
|000032f0| d9 be 4b fb aa 3b d5 06 | 00 00 52 10 a0 00 41 00 |..K..;..|..R...A.|
|00003300| 20 40 00 00 00 90 10 20 | 00 00 00 00 00 08 00 04 | @..... |........|
|00003310| 80 00 08 14 01 80 60 01 | 40 00 00 00 00 40 00 00 |......`.|@....@..|
|00003320| 44 20 08 22 01 44 00 42 | 10 22 10 00 20 40 22 00 |D .".D.B|.".. @".|
|00003330| 00 00 80 00 48 00 d0 62 | 00 00 24 00 00 10 00 80 |....H..b|..$.....|
|00003340| 50 01 48 00 01 0a 00 40 | 20 00 00 00 21 20 91 00 |P.H....@| ...! ..|
|00003350| 02 00 00 04 01 00 03 80 | c0 00 00 00 40 02 80 00 |........|....@...|
|00003360| 03 00 00 a4 00 00 00 42 | 48 00 83 08 00 20 01 00 |.......B|H.... ..|
|00003370| 00 00 53 83 a0 0a 42 48 | a5 4a 64 17 6f 73 f1 38 |..S...BH|.Jd.os.8|
|00003380| 93 c9 03 e6 17 35 c5 14 | 81 70 8b 05 4d 90 60 db |.....5..|.p..M.`.|
|00003390| 42 81 02 23 24 c5 07 90 | a8 40 eb a7 05 ce 0c 07 |B..#$...|.@......|
|000033a0| 52 62 70 86 b6 67 6d e1 | 09 cb 71 15 41 48 d9 6d |Rbp..gm.|..q.AH.m|
|000033b0| 48 42 65 22 68 56 c3 80 | d0 08 ee 79 2d cb 00 43 |HBe"hV..|...y-..C|
|000033c0| 10 11 80 08 67 7b d9 01 | 37 a9 80 21 35 3b 17 09 |....g{..|7..!5;..|
|000033d0| 40 51 11 81 42 84 e0 80 | 42 2e 80 cb a1 bd 1c c8 |@Q..B...|B.......|
|000033e0| ca 18 4b 0e a8 02 85 7a | 00 00 54 fe a0 20 00 20 |..K....z|..T.. . |
|000033f0| 01 c2 6a c0 29 34 59 6b | 07 0d 81 05 59 50 15 10 |..j.)4Yk|....YP..|
|00003400| 14 e8 10 91 3b c5 61 86 | c0 02 01 02 c4 00 55 90 |....;.a.|......U.|
|00003410| 10 38 03 22 80 62 0d 04 | 42 80 28 86 48 11 ad 00 |.8.".b..|B.(.H...|
|00003420| c0 42 18 8c 64 00 4e 69 | 8d 02 c4 a4 c8 51 80 80 |.B..d.Ni|.....Q..|
|00003430| 50 ce e0 0d 01 42 4a 66 | 68 91 00 02 e4 b9 83 c6 |P....BJf|h.......|
|00003440| 02 23 03 32 0d 3c 03 0c | 08 03 40 01 40 40 80 84 |.#.2.<..|..@.@@..|
|00003450| 03 06 4d c7 a8 34 0a 5a | 48 c8 83 41 00 08 21 48 |..M..4.Z|H..A..!H|
|00003460| 00 00 60 9a a0 41 00 00 | 00 00 c2 16 65 13 00 00 |..`..A..|....e...|
|00003470| 82 00 28 14 11 12 94 01 | 80 40 04 80 09 80 40 08 |..(.....|.@....@.|
|00003480| 40 00 00 01 89 00 04 00 | 00 00 02 a2 04 0c 40 0b |@.......|......@.|
|00003490| 20 10 88 0c 00 41 0c 00 | 00 41 00 81 40 00 41 40 | ....A..|.A..@.A@|
|000034a0| 0a 00 04 20 c8 18 50 08 | c0 08 60 20 20 82 82 42 |... ..P.|..`  ..B|
|000034b0| 44 06 00 18 60 e2 89 00 | 52 00 24 60 04 00 07 60 |D...`...|R.$`...`|
|000034c0| 00 41 4c 00 50 00 00 00 | 02 08 00 40 a1 04 00 00 |.AL.P...|...@....|
|000034d0| 00 00 01 78 00 08 84 68 | 00 00 58 65 a0 00 80 00 |...x...h|..Xe....|
|000034e0| 01 00 00 00 09 10 00 28 | 00 49 0b 00 60 10 04 00 |.......(|.I..`...|
|000034f0| 00 c0 00 00 01 80 40 00 | 40 00 01 00 c0 05 00 00 |......@.|@.......|
|00003500| 00 00 82 27 00 05 06 02 | 10 00 08 02 00 40 20 00 |...'....|.....@ .|
|00003510| 00 00 00 05 41 40 40 61 | 08 00 85 20 00 10 02 03 |....A@@a|... ....|
|00003520| 52 18 e8 00 20 82 00 40 | 00 05 30 00 60 20 83 c1 |R... ..@|..0.` ..|
|00003530| 02 20 04 28 01 00 03 01 | 00 00 21 11 44 40 00 80 |. .(....|..!.D@..|
|00003540| 02 00 02 10 00 14 00 01 | 08 00 03 40 00 00 81 00 |........|...@....|
|00003550| 00 00 61 0e a0 00 00 00 | 00 02 00 06 25 11 00 00 |..a.....|....%...|
|00003560| 82 00 00 04 41 20 84 00 | 00 00 00 00 08 90 50 00 |....A ..|......P.|
|00003570| 40 00 00 01 60 00 04 10 | 00 00 02 22 00 ca 00 00 |@...`...|..."....|
|00003580| 40 00 00 04 00 60 0c 00 | 00 40 00 00 00 00 01 60 |@....`..|.@.....`|
|00003590| 0c 20 05 00 48 98 00 01 | d0 00 40 60 00 82 48 c2 |. ..H...|..@`..H.|
|000035a0| 10 10 00 08 61 20 8b 80 | 02 00 00 00 00 00 0f 01 |....a ..|........|
|000035b0| 02 41 00 80 40 00 00 00 | 02 08 80 72 a1 06 80 00 |.A..@...|...r....|
|000035c0| 00 04 03 08 00 00 00 2a | 00 00 5d f5 a0 08 80 20 |.......*|..].... |
|000035d0| 04 00 6e 46 39 94 00 29 | 82 05 43 96 13 b4 1d 12 |..nF9..)|..C.....|
|000035e0| 00 00 00 d5 0d c1 48 2e | c0 00 47 43 67 00 4c 88 |......H.|..GCg.L.|
|000035f0| 58 09 0b 2a 11 48 82 96 | 42 11 62 4c 80 83 ee 01 |X..*.H..|B.bL....|
|00003600| a1 6a 51 05 46 20 03 68 | 18 02 d5 bc ec 52 40 4c |.jQ.F .h|.....R@L|
|00003610| dc 0e ea 2b 20 46 47 66 | 60 11 00 1a f2 bc d1 c7 |...+ FGf|`.......|
|00003620| b3 11 25 24 05 01 57 b4 | 01 60 10 11 46 40 80 91 |..%$..W.|.`..F@..|
|00003630| 42 2a 88 47 e1 14 08 48 | 88 ea 63 3b 80 1c b3 b8 |B*.G...H|..c;....|
|00003640| 00 00 5c 7f a0 15 4c 6c | a4 93 2e e8 0f d5 b9 79 |..\...Ll|.......y|
|00003650| 91 c8 62 ea d7 34 c7 d3 | ca fb ad cf 9d d5 7e d3 |..b..4..|......~.|
|00003660| 52 32 4b e6 ab c4 27 f0 | 62 29 4f d2 75 d7 9e bf |R2K...'.|b)O.u...|
|00003670| 2b 73 7d 03 e6 d6 ec 1d | f8 43 2f 9f 6d 50 e9 69 |+s}.....|.C/.mP.i|
|00003680| 3f b8 69 a9 fc 4c 7c 99 | df 5e 6e 9b 75 fc 87 7e |?.i..L|.|.^n.u..~|
|00003690| fe c3 1c aa 67 7c db 53 | 8b cf 61 03 90 55 23 f9 |....g|.S|..a..U#.|
|000036a0| 6b e2 89 d1 d5 57 fc 9c | c3 e4 05 8f fa 5e 7f 52 |k....W..|.....^.R|
|000036b0| 6f 8a cb fc 95 3e f2 4e | 00 00 00 00 00 00 00 00 |o....>.N|........|
|000036c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003900| 00 00 43 a0 46 52 45 45 | 00 00 00 00 00 00 00 00 |..C.FREE|........|
|00003910| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00003920| 00 00 0a db 00 09 00 0a | 00 00 07 26 00 00 00 00 |........|...&....|
|00003930| 00 00 00 58 00 01 02 04 | 00 e4 00 07 01 3b 01 1a |...X....|.....;..|
|00003940| 00 07 00 00 00 00 00 00 | 00 04 00 09 00 00 00 0c |........|........|
|00003950| 55 69 74 76 6f 65 72 00 | 00 6f 6e 20 65 6e 74 65 |Uitvoer.|.on ente|
|00003960| 72 69 6e 66 69 65 6c 64 | 0d 72 65 74 75 72 6e 69 |rinfield|.returni|
|00003970| 6e 66 69 65 6c 64 0d 65 | 6e 64 20 65 6e 74 65 72 |nfield.e|nd enter|
|00003980| 69 6e 66 69 65 6c 64 0d | 00 00 00 5c 00 03 01 00 |infield.|...\....|
|00003990| 01 43 00 ef 01 55 01 04 | 00 01 00 00 1a 40 00 01 |.C...U..|.....@..|
|000039a0| 3f ff 00 0c 00 00 00 10 | 42 61 63 6b 00 00 6f 6e |?.......|Back..on|
|000039b0| 20 6d 6f 75 73 65 55 70 | 0d 76 69 73 75 61 6c 20 | mouseUp|.visual |
|000039c0| 65 66 66 65 63 74 20 69 | 72 69 73 20 63 6c 6f 73 |effect i|ris clos|
|000039d0| 65 0d 67 6f 20 62 61 63 | 6b 0d 65 6e 64 20 6d 6f |e.go bac|k.end mo|
|000039e0| 75 73 65 55 70 00 00 54 | 00 04 02 04 00 5f 00 07 |useUp..T|....._..|
|000039f0| 00 e2 01 1a 00 07 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|00003a00| 00 00 00 0d 49 6e 66 6f | 00 00 6f 6e 20 65 6e 74 |....Info|..on ent|
|00003a10| 65 72 69 6e 66 69 65 6c | 64 0d 72 65 74 75 72 6e |erinfiel|d.return|
|00003a20| 69 6e 66 69 65 6c 64 0d | 65 6e 64 20 65 6e 74 65 |infield.|end ente|
|00003a30| 72 69 6e 66 69 65 6c 64 | 0d 00 02 d4 00 05 01 00 |rinfield|........|
|00003a40| 01 49 00 07 01 57 00 c4 | 80 02 00 00 00 00 00 01 |.I...W..|........|
|00003a50| 00 03 00 09 00 00 00 0c | 47 6f 54 6f 43 61 72 64 |........|GoToCard|
|00003a60| 00 00 2d 2d 4d 6f 75 73 | 65 20 6f 6e 20 62 75 74 |..--Mous|e on but|
|00003a70| 74 6f 6e 3a 20 6e 75 6d | 62 65 72 20 61 6e 64 20 |ton: num|ber and |
|00003a80| 6e 61 6d 65 20 6f 66 20 | 63 64 20 61 72 65 20 73 |name of |cd are s|
|00003a90| 68 6f 77 6e 2e 0d 2d 2d | 53 65 74 20 6d 6f 75 73 |hown..--|Set mous|
|00003aa0| 65 20 74 6f 20 6c 65 66 | 74 3a 20 66 69 72 73 74 |e to lef|t: first|
|00003ab0| 20 63 61 72 64 2c 20 66 | 75 6c 6c 79 20 72 69 67 | card, f|ully rig|
|00003ac0| 68 74 3a 20 6c 61 73 74 | 20 63 61 72 64 2e 0d 2d |ht: last| card..-|
|00003ad0| 2d 4d 6f 75 73 65 63 6c | 69 63 6b 20 6f 6e 20 64 |-Mousecl|ick on d|
|00003ae0| 65 73 69 72 65 64 20 62 | 74 6e 20 6c 6f 63 3a 20 |esired b|tn loc: |
|00003af0| 67 6f 20 74 6f 20 73 68 | 6f 77 6e 20 63 61 72 64 |go to sh|own card|
|00003b00| 2e 0d 2d 2d a9 a9 20 4f | 2e 20 76 61 6e 20 56 6c |..--.. O|. van Vl|
|00003b10| 69 6a 6d 65 6e 20 31 39 | 38 38 2c 20 31 39 39 36 |ijmen 19|88, 1996|
|00003b20| 2c 20 31 39 39 38 0d 6f | 6e 20 6d 6f 75 73 65 75 |, 1998.o|n mouseu|
|00003b30| 70 0d 67 6c 6f 62 61 6c | 20 63 74 67 0d 69 66 20 |p.global| ctg.if |
|00003b40| 63 74 67 20 3d 20 30 20 | 6f 72 20 63 74 67 20 3e |ctg = 0 |or ctg >|
|00003b50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 72 64 73 | number |of cards|
|00003b60| 20 74 68 65 6e 20 65 78 | 69 74 20 6d 6f 75 73 65 | then ex|it mouse|
|00003b70| 75 70 0d 73 65 74 20 6e | 61 6d 65 20 6f 66 20 6d |up.set n|ame of m|
|00003b80| 65 20 74 6f 20 22 47 6f | 54 6f 43 61 72 64 22 0d |e to "Go|ToCard".|
|00003b90| 67 6f 20 63 61 72 64 20 | 63 74 67 0d 65 6e 64 20 |go card |ctg.end |
|00003ba0| 6d 6f 75 73 65 75 70 0d | 0d 6f 6e 20 6d 6f 75 73 |mouseup.|.on mous|
|00003bb0| 65 77 69 74 68 69 6e 0d | 67 6c 6f 62 61 6c 20 63 |ewithin.|global c|
|00003bc0| 74 67 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |tg.put t|he numbe|
|00003bd0| 72 20 6f 66 20 63 61 72 | 64 73 20 69 6e 74 6f 20 |r of car|ds into |
|00003be0| 63 64 0d 70 75 74 20 74 | 68 65 20 77 69 64 74 68 |cd.put t|he width|
|00003bf0| 20 6f 66 20 6d 65 20 69 | 6e 74 6f 20 77 0d 70 75 | of me i|nto w.pu|
|00003c00| 74 20 74 68 65 20 6c 65 | 66 74 20 6f 66 20 6d 65 |t the le|ft of me|
|00003c10| 20 69 6e 74 6f 20 77 31 | 0d 70 75 74 20 74 68 65 | into w1|.put the|
|00003c20| 20 6d 6f 75 73 65 48 20 | 69 6e 74 6f 20 63 6c 0d | mouseH |into cl.|
|00003c30| 70 75 74 20 72 6f 75 6e | 64 28 2e 35 20 2b 20 63 |put roun|d(.5 + c|
|00003c40| 64 20 2a 20 28 63 6c 20 | 2d 20 77 31 29 20 2f 20 |d * (cl |- w1) / |
|00003c50| 77 29 20 69 6e 74 6f 20 | 63 74 67 0d 69 66 20 63 |w) into |ctg.if c|
|00003c60| 74 67 20 b2 20 30 20 6f | 72 20 63 74 67 20 3e 20 |tg . 0 o|r ctg > |
|00003c70| 63 64 20 74 68 65 6e 20 | 65 78 69 74 20 6d 6f 75 |cd then |exit mou|
|00003c80| 73 65 77 69 74 68 69 6e | 0d 73 65 74 20 6e 61 6d |sewithin|.set nam|
|00003c90| 65 20 6f 66 20 6d 65 20 | 74 6f 20 63 74 67 20 26 |e of me |to ctg &|
|00003ca0| 20 22 3a 22 20 26 26 20 | 74 68 65 20 73 68 6f 72 | ":" && |the shor|
|00003cb0| 74 20 6e 61 6d 65 20 6f | 66 20 63 64 20 63 74 67 |t name o|f cd ctg|
|00003cc0| 0d 65 6e 64 20 6d 6f 75 | 73 65 77 69 74 68 69 6e |.end mou|sewithin|
|00003cd0| 0d 0d 6f 6e 20 6d 6f 75 | 73 65 6c 65 61 76 65 0d |..on mou|seleave.|
|00003ce0| 73 65 74 20 6e 61 6d 65 | 20 6f 66 20 6d 65 20 74 |set name| of me t|
|00003cf0| 6f 20 22 47 6f 54 6f 43 | 61 72 64 22 0d 65 6e 64 |o "GoToC|ard".end|
|00003d00| 20 6d 6f 75 73 65 6c 65 | 61 76 65 0d 00 00 00 de | mousele|ave.....|
|00003d10| 00 06 01 00 01 44 00 cb | 01 53 00 dd 00 01 00 00 |.....D..|.S......|
|00003d20| 3c 3c 00 01 3f ff 00 0c | 00 00 00 10 50 72 65 76 |<<..?...|....Prev|
|00003d30| 00 00 2d 2d 4d 75 69 73 | 6b 6e 6f 70 20 69 6e 67 |..--Muis|knop ing|
|00003d40| 65 64 72 75 6b 20 68 6f | 75 64 65 6e 3a 20 62 6c |edruk ho|uden: bl|
|00003d50| 69 6a 66 74 20 64 6f 6f | 72 72 6f 6c 6c 65 6e 0d |ijft doo|rrollen.|
|00003d60| 6f 6e 20 6d 6f 75 73 65 | 64 6f 77 6e 0d 76 6f 72 |on mouse|down.vor|
|00003d70| 69 67 65 0d 65 6e 64 20 | 6d 6f 75 73 65 64 6f 77 |ige.end |mousedow|
|00003d80| 6e 0d 0d 6f 6e 20 6d 6f | 75 73 65 73 74 69 6c 6c |n..on mo|usestill|
|00003d90| 64 6f 77 6e 0d 76 6f 72 | 69 67 65 0d 65 6e 64 20 |down.vor|ige.end |
|00003da0| 6d 6f 75 73 65 73 74 69 | 6c 6c 64 6f 77 6e 0d 0d |mousesti|lldown..|
|00003db0| 6f 6e 20 76 6f 72 69 67 | 65 0d 76 69 73 75 61 6c |on vorig|e.visual|
|00003dc0| 20 65 66 66 65 63 74 20 | 77 69 70 65 20 72 69 67 | effect |wipe rig|
|00003dd0| 68 74 20 66 61 73 74 0d | 67 6f 20 70 72 65 76 0d |ht fast.|go prev.|
|00003de0| 65 6e 64 20 76 6f 72 69 | 67 65 00 00 00 e4 00 07 |end vori|ge......|
|00003df0| 01 00 01 44 00 dd 01 53 | 00 ee 00 01 00 00 40 b0 |...D...S|......@.|
|00003e00| 00 01 3f ff 00 0c 00 00 | 00 10 4e 65 78 74 00 00 |..?.....|..Next..|
|00003e10| 2d 2d 4d 75 69 73 6b 6e | 6f 70 20 69 6e 67 65 64 |--Muiskn|op inged|
|00003e20| 72 75 6b 20 68 6f 75 64 | 65 6e 3a 20 62 6c 69 6a |ruk houd|en: blij|
|00003e30| 66 74 20 64 6f 6f 72 72 | 6f 6c 6c 65 6e 0d 6f 6e |ft doorr|ollen.on|
|00003e40| 20 6d 6f 75 73 65 64 6f | 77 6e 0d 76 6f 6c 67 65 | mousedo|wn.volge|
|00003e50| 6e 64 65 0d 65 6e 64 20 | 6d 6f 75 73 65 64 6f 77 |nde.end |mousedow|
|00003e60| 6e 0d 0d 6f 6e 20 6d 6f | 75 73 65 73 74 69 6c 6c |n..on mo|usestill|
|00003e70| 64 6f 77 6e 0d 76 6f 6c | 67 65 6e 64 65 0d 65 6e |down.vol|gende.en|
|00003e80| 64 20 6d 6f 75 73 65 73 | 74 69 6c 6c 64 6f 77 6e |d mouses|tilldown|
|00003e90| 0d 0d 6f 6e 20 76 6f 6c | 67 65 6e 64 65 0d 76 69 |..on vol|gende.vi|
|00003ea0| 73 75 61 6c 20 65 66 66 | 65 63 74 20 77 69 70 65 |sual eff|ect wipe|
|00003eb0| 20 6c 65 66 74 20 66 61 | 73 74 0d 67 6f 20 6e 65 | left fa|st.go ne|
|00003ec0| 78 74 0d 65 6e 64 20 76 | 6f 6c 67 65 6e 64 65 00 |xt.end v|olgende.|
|00003ed0| 00 a6 00 08 01 00 01 41 | 01 05 01 56 01 1d 00 02 |.......A|...V....|
|00003ee0| 00 00 50 d1 00 01 3f ff | 00 0c 00 00 00 10 48 6f |..P...?.|......Ho|
|00003ef0| 6d 65 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 76 |me..on m|ouseUp.v|
|00003f00| 69 73 75 61 6c 20 65 66 | 66 65 63 74 20 64 69 73 |isual ef|fect dis|
|00003f10| 73 6f 6c 76 65 0d 2d 2d | 44 6f 65 73 6e 27 74 20 |solve.--|Doesn't |
|00003f20| 77 6f 72 6b 2e 20 77 68 | 79 3f 0d 2d 2d 50 72 6f |work. wh|y?.--Pro|
|00003f30| 62 61 62 6c 79 20 63 6f | 73 20 74 68 65 20 48 6f |bably co|s the Ho|
|00003f40| 6d 65 20 73 74 61 63 6b | 20 69 73 20 62 69 67 67 |me stack| is bigg|
|00003f50| 65 72 20 28 63 61 72 64 | 20 72 65 63 74 29 2e 0d |er (card| rect)..|
|00003f60| 67 6f 20 48 6f 6d 65 0d | 65 6e 64 20 6d 6f 75 73 |go Home.|end mous|
|00003f70| 65 55 70 0d 00 00 00 70 | 00 09 01 00 01 3c 00 87 |eUp....p|.....<..|
|00003f80| 01 48 00 c3 80 02 00 00 | 00 00 00 01 00 03 00 09 |.H......|........|
|00003f90| 00 00 00 0c 47 6f 20 74 | 6f 20 69 6e 64 65 78 00 |....Go t|o index.|
|00003fa0| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 76 69 73 75 |.on mous|eUp.visu|
|00003fb0| 61 6c 20 65 66 66 65 63 | 74 20 69 72 69 73 20 6f |al effec|t iris o|
|00003fc0| 70 65 6e 0d 67 6f 20 74 | 6f 20 63 61 72 64 20 69 |pen.go t|o card i|
|00003fd0| 64 20 32 33 36 37 39 0d | 65 6e 64 20 6d 6f 75 73 |d 23679.|end mous|
|00003fe0| 65 55 70 0d 0d 00 00 72 | 00 0a 01 00 01 3c 00 41 |eUp....r|.....<.A|
|00003ff0| 01 48 00 85 80 02 00 00 | 00 00 00 01 00 03 00 09 |.H......|........|
|00004000| 00 00 00 0c 47 6f 20 74 | 6f 20 31 73 74 20 63 61 |....Go t|o 1st ca|
|00004010| 72 64 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 76 |rd..on m|ouseUp.v|
|00004020| 69 73 75 61 6c 20 65 66 | 66 65 63 74 20 69 72 69 |isual ef|fect iri|
|00004030| 73 20 6f 70 65 6e 0d 67 | 6f 20 74 6f 20 63 61 72 |s open.g|o to car|
|00004040| 64 20 69 64 20 32 38 34 | 35 0d 65 6e 64 20 6d 6f |d id 284|5.end mo|
|00004050| 75 73 65 55 70 0d 0d 00 | 00 0d 2d 2d b0 b0 b0 b0 |useUp...|..--....|
|00004060| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 20 |........|....... |
|00004070| 46 41 43 54 4f 52 49 41 | 4c 20 b0 b0 b0 b0 b0 b0 |FACTORIA|L ......|
|00004080| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00004090| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000040a0| b0 b0 0d 2d 2d 43 6f 6d | 70 75 74 65 73 20 6c 6e |...--Com|putes ln|
|000040b0| 28 6e 21 29 20 77 69 74 | 68 20 53 74 69 72 6c 69 |(n!) wit|h Stirli|
|000040c0| 6e 67 27 73 20 61 70 70 | 72 6f 78 69 6d 61 74 69 |ng's app|roximati|
|000040d0| 6f 6e 2e 0d 2d 2d 4c 6f | 6f 6b 75 70 20 74 61 62 |on..--Lo|okup tab|
|000040e0| 6c 65 20 66 6f 72 20 69 | 6e 74 65 67 65 72 20 6e |le for i|nteger n|
|000040f0| b2 31 30 2c 20 63 6f 73 | 20 74 68 65 20 61 70 70 |.10, cos| the app|
|00004100| 72 6f 78 69 6d 61 74 69 | 6f 6e 20 61 73 20 69 6d |roximati|on as im|
|00004110| 70 6c 65 6d 65 6e 74 65 | 64 0d 2d 2d 68 65 72 65 |plemente|d.--here|
|00004120| 20 62 65 67 69 6e 73 20 | 74 6f 20 67 69 76 65 20 | begins |to give |
|00004130| 67 6f 6f 64 20 72 65 73 | 75 6c 74 73 20 6f 6e 6c |good res|ults onl|
|00004140| 79 20 66 6f 72 20 6e b3 | 38 2e 0d 2d 2d a9 a9 20 |y for n.|8..--.. |
|00004150| 4f 2e 20 76 61 6e 20 56 | 6c 69 6a 6d 65 6e 20 30 |O. van V|lijmen 0|
|00004160| 36 2d 31 31 2d 31 39 39 | 38 0d 0d 66 75 6e 63 74 |6-11-199|8..funct|
|00004170| 69 6f 6e 20 6c 6e 66 61 | 63 20 6e 0d 73 65 74 20 |ion lnfa|c n.set |
|00004180| 6e 75 6d 62 65 72 46 6f | 72 6d 61 74 20 74 6f 20 |numberFo|rmat to |
|00004190| 22 30 2e 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |"0.#####|########|
|000041a0| 23 23 23 23 23 23 23 22 | 0d 70 75 74 20 76 61 6c |#######"|.put val|
|000041b0| 75 65 28 6e 29 20 69 6e | 74 6f 20 6e 0d 69 66 20 |ue(n) in|to n.if |
|000041c0| 28 6e 20 69 73 20 61 6e | 20 69 6e 74 65 67 65 72 |(n is an| integer|
|000041d0| 29 20 61 6e 64 20 6e b2 | 31 30 20 74 68 65 6e 0d |) and n.|10 then.|
|000041e0| 70 75 74 20 22 31 2c 31 | 2c 32 2c 36 2c 32 34 2c |put "1,1|,2,6,24,|
|000041f0| 31 32 30 2c 37 32 30 2c | 35 30 34 30 2c 34 30 33 |120,720,|5040,403|
|00004200| 32 30 2c 33 36 32 38 38 | 30 2c 33 36 32 38 38 30 |20,36288|0,362880|
|00004210| 30 22 20 69 6e 74 6f 20 | 72 65 65 6b 73 0d 72 65 |0" into |reeks.re|
|00004220| 74 75 72 6e 20 6c 6e 28 | 69 74 65 6d 20 28 6e 2b |turn ln(|item (n+|
|00004230| 31 29 20 6f 66 20 72 65 | 65 6b 73 29 0d 65 6e 64 |1) of re|eks).end|
|00004240| 20 69 66 0d 0d 70 75 74 | 20 31 2f 28 6e 29 2a 28 | if..put| 1/(n)*(|
|00004250| 31 2f 31 32 2b 31 2f 28 | 6e 2a 6e 29 2a 28 2d 31 |1/12+1/(|n*n)*(-1|
|00004260| 2f 33 36 30 2b 31 2f 28 | 6e 2a 6e 29 2a 28 31 2f |/360+1/(|n*n)*(1/|
|00004270| 31 32 36 30 2b 31 2f 28 | 6e 2a 6e 29 2a 28 2d 31 |1260+1/(|n*n)*(-1|
|00004280| 2f 31 36 38 30 c2 0d 2b | 31 2f 28 6e 2a 6e 29 2a |/1680..+|1/(n*n)*|
|00004290| 28 31 2f 31 31 38 38 2b | 31 2f 28 6e 2a 6e 29 2a |(1/1188+|1/(n*n)*|
|000042a0| 28 2d 36 39 31 2f 33 36 | 30 33 36 30 2b 31 2f 28 |(-691/36|0360+1/(|
|000042b0| 6e 2a 6e 29 2a 28 31 2f | 31 35 36 c2 0d 2b 31 2f |n*n)*(1/|156..+1/|
|000042c0| 28 6e 2a 6e 29 2a 28 2d | 33 36 31 37 2f 31 32 32 |(n*n)*(-|3617/122|
|000042d0| 34 30 30 2b 31 2f 28 6e | 2a 6e 29 2a 28 34 33 38 |400+1/(n|*n)*(438|
|000042e0| 36 37 2f 32 34 34 31 38 | 38 29 29 29 29 29 29 29 |67/24418|8)))))))|
|000042f0| 29 29 20 69 6e 74 6f 20 | 72 65 73 0d 0d 61 64 64 |)) into |res..add|
|00004300| 20 28 6e 2b 30 2e 35 29 | 2a 6c 6e 28 6e 29 20 2d | (n+0.5)|*ln(n) -|
|00004310| 20 6e 20 2b 20 30 2e 35 | 2a 6c 6e 28 32 2a 70 69 | n + 0.5|*ln(2*pi|
|00004320| 29 20 74 6f 20 72 65 73 | 0d 72 65 74 75 72 6e 20 |) to res|.return |
|00004330| 72 65 73 0d 65 6e 64 20 | 6c 6e 66 61 63 0d 0d 2d |res.end |lnfac..-|
|00004340| 2d 53 6f 6d 65 20 6d 6f | 72 65 20 74 65 72 6d 73 |-Some mo|re terms|
|00004350| 3b 20 67 69 76 65 20 6e | 6f 20 65 78 74 72 61 20 |; give n|o extra |
|00004360| 61 63 63 75 72 61 63 79 | 20 74 68 6f 75 67 68 2c |accuracy| though,|
|00004370| 20 64 75 65 20 74 6f 20 | 4d 61 63 27 73 20 6c 6e | due to |Mac's ln|
|00004380| 2d 66 75 6e 63 74 69 6f | 6e 0d 2d 2d 20 70 75 74 |-functio|n.-- put|
|00004390| 20 31 2f 28 6e 29 2a 28 | 31 2f 31 32 2b 31 2f 28 | 1/(n)*(|1/12+1/(|
|000043a0| 6e 2a 6e 29 2a 28 2d 31 | 2f 33 36 30 2b 31 2f 28 |n*n)*(-1|/360+1/(|
|000043b0| 6e 2a 6e 29 2a 28 31 2f | 31 32 36 30 2b 31 2f 28 |n*n)*(1/|1260+1/(|
|000043c0| 6e 2a 6e 29 2a 28 2d 31 | 2f 31 36 38 30 c2 0d 2d |n*n)*(-1|/1680..-|
|000043d0| 2d 20 2b 31 2f 28 6e 2a | 6e 29 2a 28 31 2f 31 31 |- +1/(n*|n)*(1/11|
|000043e0| 38 38 2b 31 2f 28 6e 2a | 6e 29 2a 28 2d 36 39 31 |88+1/(n*|n)*(-691|
|000043f0| 2f 33 36 30 33 36 30 2b | 31 2f 28 6e 2a 6e 29 2a |/360360+|1/(n*n)*|
|00004400| 28 31 2f 31 35 36 c2 0d | 2d 2d 20 2b 31 2f 28 6e |(1/156..|-- +1/(n|
|00004410| 2a 6e 29 2a 28 2d 33 36 | 31 37 2f 31 32 32 34 30 |*n)*(-36|17/12240|
|00004420| 30 2b 31 2f 28 6e 2a 6e | 29 2a 28 34 33 38 36 37 |0+1/(n*n|)*(43867|
|00004430| 2f 32 34 34 31 38 38 c2 | 0d 2d 2d 20 2b 31 2f 28 |/244188.|.-- +1/(|
|00004440| 6e 2a 6e 29 2a 28 2d 31 | 37 34 36 31 31 2f 31 32 |n*n)*(-1|74611/12|
|00004450| 35 34 30 30 2b 31 2f 28 | 6e 2a 6e 29 2a 28 37 37 |5400+1/(|n*n)*(77|
|00004460| 36 38 33 2f 35 37 39 36 | c2 0d 2d 2d 20 2b 31 2f |683/5796|..-- +1/|
|00004470| 28 6e 2a 6e 29 2a 28 2d | 32 33 36 33 36 34 30 39 |(n*n)*(-|23636409|
|00004480| 31 2f 31 35 30 36 39 36 | 30 2b 31 2f 28 6e 2a 6e |1/150696|0+1/(n*n|
|00004490| 29 2a 28 36 35 37 39 33 | 31 2f 33 30 30 29 29 29 |)*(65793|1/300)))|
|000044a0| 29 29 29 29 29 29 29 29 | 29 29 20 69 6e 74 6f 20 |))))))))|)) into |
|000044b0| 72 65 73 0d 0d 0d 2d 2d | b0 b0 b0 b0 b0 b0 b0 b0 |res...--|........|
|000044c0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 20 47 41 4d |........|.... GAM|
|000044d0| 4d 41 20 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |MA .....|........|
|000044e0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000044f0| b0 b0 b0 b0 b0 b0 b0 b0 | 0d 2d 2d 46 72 6f 6d 20 |........|.--From |
|00004500| 4e 75 6d 65 72 69 63 61 | 6c 20 52 65 63 69 70 65 |Numerica|l Recipe|
|00004510| 73 2e 0d 2d 2d 43 6f 6d | 70 75 74 65 73 20 76 61 |s..--Com|putes va|
|00004520| 6c 75 65 20 6f 66 20 74 | 68 65 20 67 61 6d 6d 61 |lue of t|he gamma|
|00004530| 20 66 75 6e 63 74 69 6f | 6e 20 66 6f 72 20 61 72 | functio|n for ar|
|00004540| 67 75 6d 65 6e 74 20 3e | 30 2e 0d 66 75 6e 63 74 |gument >|0..funct|
|00004550| 69 6f 6e 20 67 61 6d 6d | 61 20 78 78 0d 70 75 74 |ion gamm|a xx.put|
|00004560| 20 78 78 20 69 6e 74 6f | 20 74 65 73 74 0d 69 66 | xx into| test.if|
|00004570| 20 74 65 73 74 3c 31 20 | 74 68 65 6e 20 70 75 74 | test<1 |then put|
|00004580| 20 32 2d 74 65 73 74 20 | 69 6e 74 6f 20 78 78 0d | 2-test |into xx.|
|00004590| 70 75 74 20 32 2e 35 30 | 36 36 32 38 32 37 34 36 |put 2.50|66282746|
|000045a0| 35 20 69 6e 74 6f 20 73 | 74 70 0d 70 75 74 20 78 |5 into s|tp.put x|
|000045b0| 78 2d 31 2e 30 20 69 6e | 74 6f 20 78 0d 70 75 74 |x-1.0 in|to x.put|
|000045c0| 20 78 2b 35 2e 35 20 69 | 6e 74 6f 20 74 6d 70 0d | x+5.5 i|nto tmp.|
|000045d0| 70 75 74 20 28 78 2b 30 | 2e 35 29 2a 6c 6e 28 74 |put (x+0|.5)*ln(t|
|000045e0| 6d 70 29 2d 74 6d 70 20 | 69 6e 74 6f 20 74 6d 70 |mp)-tmp |into tmp|
|000045f0| 0d 70 75 74 20 31 2e 30 | 2b 37 36 2e 31 38 30 30 |.put 1.0|+76.1800|
|00004600| 39 31 37 33 2f 28 78 2b | 31 2e 30 29 2d 38 36 2e |9173/(x+|1.0)-86.|
|00004610| 35 30 35 33 32 30 33 33 | 2f 28 78 2b 32 2e 30 29 |50532033|/(x+2.0)|
|00004620| 2b 32 34 2e 30 31 34 30 | 39 38 32 32 2f 28 78 2b |+24.0140|9822/(x+|
|00004630| 33 2e 30 29 c2 0d 2d 31 | 2e 32 33 31 37 33 39 35 |3.0)..-1|.2317395|
|00004640| 31 36 2f 28 78 2b 34 2e | 30 29 2b 30 2e 30 30 31 |16/(x+4.|0)+0.001|
|00004650| 32 30 38 35 38 30 30 33 | 2f 28 78 2b 35 2e 30 29 |20858003|/(x+5.0)|
|00004660| 2d 30 2e 30 30 30 30 30 | 35 33 36 33 38 32 2f 28 |-0.00000|536382/(|
|00004670| 78 2b 36 2e 30 29 c2 0d | 69 6e 74 6f 20 73 65 72 |x+6.0)..|into ser|
|00004680| 0d 69 66 20 74 65 73 74 | 20 b3 20 31 20 74 68 65 |.if test| . 1 the|
|00004690| 6e 0d 72 65 74 75 72 6e | 20 65 78 70 28 74 6d 70 |n.return| exp(tmp|
|000046a0| 2b 6c 6e 28 73 74 70 2a | 73 65 72 29 29 0d 65 6c |+ln(stp*|ser)).el|
|000046b0| 73 65 0d 72 65 74 75 72 | 6e 20 70 69 2a 28 31 2d |se.retur|n pi*(1-|
|000046c0| 74 65 73 74 29 2f 28 65 | 78 70 28 74 6d 70 2b 6c |test)/(e|xp(tmp+l|
|000046d0| 6e 28 73 74 70 2a 73 65 | 72 29 29 2a 73 69 6e 28 |n(stp*se|r))*sin(|
|000046e0| 70 69 2a 28 31 2d 74 65 | 73 74 29 29 29 0d 65 6e |pi*(1-te|st))).en|
|000046f0| 64 20 69 66 0d 65 6e 64 | 20 67 61 6d 6d 61 0d 0d |d if.end| gamma..|
|00004700| 2d 2d b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |--......|........|
|00004710| b0 b0 b0 b0 b0 20 4c 4e | 28 47 41 4d 4d 41 29 20 |..... LN|(GAMMA) |
|00004720| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00004730| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00004740| b0 b0 0d 2d 2d 52 45 41 | 4c 20 46 55 4e 43 54 49 |...--REA|L FUNCTI|
|00004750| 4f 4e 20 41 4c 47 41 4d | 41 28 58 29 0d 2d 2d 53 |ON ALGAM|A(X).--S|
|00004760| 6f 75 72 63 65 3a 20 68 | 74 74 70 3a 2f 2f 77 77 |ource: h|ttp://ww|
|00004770| 77 2e 6e 65 74 6c 69 62 | 2e 6f 72 67 2f 73 70 65 |w.netlib|.org/spe|
|00004780| 63 66 75 6e 2f 61 6c 67 | 61 6d 61 0d 2d 2d 54 68 |cfun/alg|ama.--Th|
|00004790| 69 73 20 72 6f 75 74 69 | 6e 65 20 63 61 6c 63 75 |is routi|ne calcu|
|000047a0| 6c 61 74 65 73 20 74 68 | 65 20 4c 4e 28 47 41 4d |lates th|e LN(GAM|
|000047b0| 4d 41 29 20 66 75 6e 63 | 74 69 6f 6e 20 66 6f 72 |MA) func|tion for|
|000047c0| 20 61 20 70 6f 73 69 74 | 69 76 65 20 72 65 61 6c | a posit|ive real|
|000047d0| 0d 2d 2d 61 72 67 75 6d | 65 6e 74 20 58 2e 20 20 |.--argum|ent X.  |
|000047e0| 50 72 65 63 69 73 69 6f | 6e 3a 20 61 74 20 6c 65 |Precisio|n: at le|
|000047f0| 61 73 74 20 31 38 20 73 | 69 67 6e 69 66 69 63 61 |ast 18 s|ignifica|
|00004800| 6e 74 20 64 65 63 69 6d | 61 6c 20 64 69 67 69 74 |nt decim|al digit|
|00004810| 73 2e 0d 2d 2d 4c 61 74 | 65 73 74 20 6d 6f 64 69 |s..--Lat|est modi|
|00004820| 66 69 63 61 74 69 6f 6e | 3a 20 4a 75 6e 65 20 31 |fication|: June 1|
|00004830| 36 2c 20 31 39 38 38 0d | 2d 2d 4d 61 63 68 69 6e |6, 1988.|--Machin|
|00004840| 65 2d 64 65 70 65 6e 64 | 65 6e 74 20 63 6f 6e 73 |e-depend|ent cons|
|00004850| 74 61 6e 74 73 3a 0d 2d | 2d 55 73 65 64 20 68 65 |tants:.-|-Used he|
|00004860| 72 65 20 74 68 65 20 67 | 69 76 65 6e 20 61 70 70 |re the g|iven app|
|00004870| 72 6f 78 69 6d 61 74 65 | 20 76 61 6c 75 65 73 20 |roximate| values |
|00004880| 66 6f 72 20 49 45 45 45 | 20 28 49 42 4d 2f 58 54 |for IEEE| (IBM/XT|
|00004890| 2c 53 55 4e 2c 20 65 74 | 63 2e 29 20 28 44 2e 50 |,SUN, et|c.) (D.P|
|000048a0| 2e 29 3a 0d 66 75 6e 63 | 74 69 6f 6e 20 61 6c 67 |.):.func|tion alg|
|000048b0| 61 6d 6d 61 20 78 0d 70 | 75 74 20 32 20 69 6e 74 |amma x.p|ut 2 int|
|000048c0| 6f 20 62 65 74 61 20 2d | 2d 72 61 64 69 78 20 66 |o beta -|-radix f|
|000048d0| 6f 72 20 74 68 65 20 66 | 6c 6f 61 74 69 6e 67 2d |or the f|loating-|
|000048e0| 70 6f 69 6e 74 20 72 65 | 70 72 65 73 65 6e 74 61 |point re|presenta|
|000048f0| 74 69 6f 6e 0d 70 75 74 | 20 31 30 32 34 20 69 6e |tion.put| 1024 in|
|00004900| 74 6f 20 6d 61 78 65 78 | 70 20 2d 2d 74 68 65 20 |to maxex|p --the |
|00004910| 73 6d 61 6c 6c 65 73 74 | 20 70 6f 73 69 74 69 76 |smallest| positiv|
|00004920| 65 20 70 6f 77 65 72 20 | 6f 66 20 62 65 74 61 20 |e power |of beta |
|00004930| 74 68 61 74 20 6f 76 65 | 72 66 6c 6f 77 73 0d 70 |that ove|rflows.p|
|00004940| 75 74 20 32 2e 35 35 2a | 31 30 5e 33 30 35 20 69 |ut 2.55*|10^305 i|
|00004950| 6e 74 6f 20 58 42 49 47 | 20 2d 2d 6c 61 72 67 65 |nto XBIG| --large|
|00004960| 73 74 20 61 72 67 75 6d | 65 6e 74 20 66 6f 72 20 |st argum|ent for |
|00004970| 77 68 69 63 68 20 4c 4e | 28 47 41 4d 4d 41 28 58 |which LN|(GAMMA(X|
|00004980| 29 29 20 69 73 20 72 65 | 70 72 65 73 65 6e 74 61 |)) is re|presenta|
|00004990| 62 6c 65 0d 2d 2d 20 20 | 20 20 69 6e 20 74 68 65 |ble.--  |  in the|
|000049a0| 20 6d 61 63 68 69 6e 65 | 2c 20 69 2e 65 2e 2c 20 | machine|, i.e., |
|000049b0| 74 68 65 20 73 6f 6c 75 | 74 69 6f 6e 20 74 6f 20 |the solu|tion to |
|000049c0| 74 68 65 20 65 71 75 61 | 74 69 6f 6e 20 4c 4e 28 |the equa|tion LN(|
|000049d0| 47 41 4d 4d 41 28 58 42 | 49 47 29 29 20 3d 20 62 |GAMMA(XB|IG)) = b|
|000049e0| 65 74 61 2a 2a 6d 61 78 | 65 78 70 0d 70 75 74 20 |eta**max|exp.put |
|000049f0| 31 2e 37 39 2a 31 30 5e | 33 30 38 20 69 6e 74 6f |1.79*10^|308 into|
|00004a00| 20 58 49 4e 46 20 2d 2d | 6c 61 72 67 65 73 74 20 | XINF --|largest |
|00004a10| 6d 61 63 68 69 6e 65 20 | 72 65 70 72 65 73 65 6e |machine |represen|
|00004a20| 74 61 62 6c 65 20 66 6c | 6f 61 74 69 6e 67 2d 70 |table fl|oating-p|
|00004a30| 6f 69 6e 74 20 6e 75 6d | 62 65 72 3b 0d 2d 2d 20 |oint num|ber;.-- |
|00004a40| 20 20 20 61 70 70 72 6f | 78 69 6d 61 74 65 6c 79 |   appro|ximately|
|00004a50| 20 62 65 74 61 2a 2a 6d | 61 78 65 78 70 2e 0d 70 | beta**m|axexp..p|
|00004a60| 75 74 20 32 2e 32 32 2a | 31 30 5e 2d 31 36 20 69 |ut 2.22*|10^-16 i|
|00004a70| 6e 74 6f 20 45 50 53 20 | 2d 2d 54 68 65 20 73 6d |nto EPS |--The sm|
|00004a80| 61 6c 6c 65 73 74 20 70 | 6f 73 69 74 69 76 65 20 |allest p|ositive |
|00004a90| 66 6c 6f 61 74 69 6e 67 | 2d 70 6f 69 6e 74 20 6e |floating|-point n|
|00004aa0| 75 6d 62 65 72 20 73 75 | 63 68 20 74 68 61 74 20 |umber su|ch that |
|00004ab0| 31 2e 30 2b 45 50 53 20 | 3e 20 31 2e 30 0d 70 75 |1.0+EPS |> 1.0.pu|
|00004ac0| 74 20 32 2e 32 35 2a 31 | 30 5e 37 36 20 69 6e 74 |t 2.25*1|0^76 int|
|00004ad0| 6f 20 46 52 54 42 49 47 | 20 2d 2d 52 6f 75 67 68 |o FRTBIG| --Rough|
|00004ae0| 20 65 73 74 69 6d 61 74 | 65 20 6f 66 20 74 68 65 | estimat|e of the|
|00004af0| 20 66 6f 75 72 74 68 20 | 72 6f 6f 74 20 6f 66 20 | fourth |root of |
|00004b00| 58 42 49 47 0d 0d 70 75 | 74 20 30 2e 36 37 39 36 |XBIG..pu|t 0.6796|
|00004b10| 38 37 35 20 69 6e 74 6f | 20 50 4e 54 36 38 0d 70 |875 into| PNT68.p|
|00004b20| 75 74 20 30 2e 39 31 38 | 39 33 38 35 33 33 32 30 |ut 0.918|93853320|
|00004b30| 34 36 37 32 37 34 31 37 | 38 30 33 32 39 37 20 69 |46727417|803297 i|
|00004b40| 6e 74 6f 20 53 51 52 54 | 50 49 0d 0d 2d 2d 20 20 |nto SQRT|PI..--  |
|00004b50| 4e 75 6d 65 72 61 74 6f | 72 20 61 6e 64 20 64 65 |Numerato|r and de|
|00004b60| 6e 6f 6d 69 6e 61 74 6f | 72 20 63 6f 65 66 66 69 |nominato|r coeffi|
|00004b70| 63 69 65 6e 74 73 20 66 | 6f 72 20 72 61 74 69 6f |cients f|or ratio|
|00004b80| 6e 61 6c 20 6d 69 6e 69 | 6d 61 78 0d 2d 2d 20 20 |nal mini|max.--  |
|00004b90| 20 20 61 70 70 72 6f 78 | 69 6d 61 74 69 6f 6e 20 |  approx|imation |
|00004ba0| 6f 76 65 72 20 28 30 2e | 35 2c 31 2e 35 29 2e 0d |over (0.|5,1.5)..|
|00004bb0| 70 75 74 20 2d 30 2e 35 | 37 37 32 31 35 36 36 34 |put -0.5|77215664|
|00004bc0| 39 30 31 35 33 32 38 36 | 30 35 31 39 35 31 37 34 |90153286|05195174|
|00004bd0| 20 69 6e 74 6f 20 44 31 | 0d 70 75 74 20 34 2e 39 | into D1|.put 4.9|
|00004be0| 34 35 32 33 35 33 35 39 | 32 39 36 37 32 37 30 34 |45235359|29672704|
|00004bf0| 36 37 33 34 38 38 38 20 | 69 6e 74 6f 20 6c 69 6e |6734888 |into lin|
|00004c00| 65 20 31 20 6f 66 20 50 | 31 0d 70 75 74 20 32 30 |e 1 of P|1.put 20|
|00004c10| 31 2e 38 31 31 32 36 32 | 30 38 35 36 37 37 35 30 |1.811262|08567750|
|00004c20| 38 33 39 31 35 35 36 35 | 20 69 6e 74 6f 20 6c 69 |83915565| into li|
|00004c30| 6e 65 20 32 20 6f 66 20 | 50 31 0d 70 75 74 20 32 |ne 2 of |P1.put 2|
|00004c40| 32 39 30 2e 38 33 38 33 | 37 33 38 33 31 33 34 36 |290.8383|73831346|
|00004c50| 33 39 33 30 32 36 37 33 | 39 20 69 6e 74 6f 20 6c |39302673|9 into l|
|00004c60| 69 6e 65 20 33 20 6f 66 | 20 50 31 0d 70 75 74 20 |ine 3 of| P1.put |
|00004c70| 31 31 33 31 39 2e 36 37 | 32 30 35 39 30 33 33 38 |11319.67|20590338|
|00004c80| 30 38 32 38 36 38 35 30 | 34 35 20 69 6e 74 6f 20 |08286850|45 into |
|00004c90| 6c 69 6e 65 20 34 20 6f | 66 20 50 31 0d 70 75 74 |line 4 o|f P1.put|
|00004ca0| 20 32 38 35 35 37 2e 32 | 34 36 33 35 36 37 31 36 | 28557.2|46356716|
|00004cb0| 33 35 33 33 35 37 33 36 | 33 38 39 20 69 6e 74 6f |35335736|389 into|
|00004cc0| 20 6c 69 6e 65 20 35 20 | 6f 66 20 50 31 0d 70 75 | line 5 |of P1.pu|
|00004cd0| 74 20 33 38 34 38 34 2e | 39 36 32 32 38 34 34 33 |t 38484.|96228443|
|00004ce0| 37 39 33 33 35 39 39 39 | 30 32 36 39 20 69 6e 74 |79335999|0269 int|
|00004cf0| 6f 20 6c 69 6e 65 20 36 | 20 6f 66 20 50 31 0d 70 |o line 6| of P1.p|
|00004d00| 75 74 20 32 36 33 37 37 | 2e 34 38 37 38 37 36 32 |ut 26377|.4878762|
|00004d10| 34 31 39 35 34 33 37 39 | 36 33 35 33 34 20 69 6e |41954379|63534 in|
|00004d20| 74 6f 20 6c 69 6e 65 20 | 37 20 6f 66 20 50 31 0d |to line |7 of P1.|
|00004d30| 70 75 74 20 37 32 32 35 | 2e 38 31 33 39 37 39 37 |put 7225|.8139797|
|00004d40| 30 30 32 38 38 31 39 37 | 36 39 38 39 36 31 20 69 |00288197|698961 i|
|00004d50| 6e 74 6f 20 6c 69 6e 65 | 20 38 20 6f 66 20 50 31 |nto line| 8 of P1|
|00004d60| 0d 70 75 74 20 36 37 2e | 34 38 32 31 32 35 35 30 |.put 67.|48212550|
|00004d70| 33 30 33 37 37 37 31 39 | 36 30 37 33 30 33 36 20 |30377719|6073036 |
|00004d80| 69 6e 74 6f 20 6c 69 6e | 65 20 31 20 6f 66 20 51 |into lin|e 1 of Q|
|00004d90| 31 0d 70 75 74 20 31 31 | 31 33 2e 33 33 32 33 39 |1.put 11|13.33239|
|00004da0| 33 38 35 37 31 39 39 33 | 32 33 35 31 33 30 30 38 |38571993|23513008|
|00004db0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 32 20 6f 66 20 | into li|ne 2 of |
|00004dc0| 51 31 0d 70 75 74 20 37 | 37 33 38 2e 37 35 37 30 |Q1.put 7|738.7570|
|00004dd0| 35 36 39 33 35 33 39 38 | 37 33 33 32 33 33 38 33 |56935398|73323383|
|00004de0| 34 20 69 6e 74 6f 20 6c | 69 6e 65 20 33 20 6f 66 |4 into l|ine 3 of|
|00004df0| 20 51 31 0d 70 75 74 20 | 32 37 36 33 39 2e 38 37 | Q1.put |27639.87|
|00004e00| 30 37 34 34 30 33 33 34 | 30 37 30 38 38 39 38 35 |07440334|07088985|
|00004e10| 38 35 20 69 6e 74 6f 20 | 6c 69 6e 65 20 34 20 6f |85 into |line 4 o|
|00004e20| 66 20 51 31 0d 70 75 74 | 20 35 34 39 39 33 2e 31 |f Q1.put| 54993.1|
|00004e30| 30 32 30 36 32 32 36 31 | 35 37 33 32 39 37 39 34 |02062261|57329794|
|00004e40| 34 31 34 20 69 6e 74 6f | 20 6c 69 6e 65 20 35 20 |414 into| line 5 |
|00004e50| 6f 66 20 51 31 0d 70 75 | 74 20 36 31 36 31 31 2e |of Q1.pu|t 61611.|
|00004e60| 32 32 31 38 30 30 36 36 | 30 30 32 31 32 37 38 33 |22180066|00212783|
|00004e70| 33 33 35 32 20 69 6e 74 | 6f 20 6c 69 6e 65 20 36 |3352 int|o line 6|
|00004e80| 20 6f 66 20 51 31 0d 70 | 75 74 20 33 36 33 35 31 | of Q1.p|ut 36351|
|00004e90| 2e 32 37 35 39 31 35 30 | 31 39 34 30 35 30 37 32 |.2759150|19405072|
|00004ea0| 37 36 32 38 37 20 69 6e | 74 6f 20 6c 69 6e 65 20 |76287 in|to line |
|00004eb0| 37 20 6f 66 20 51 31 0d | 70 75 74 20 38 37 38 35 |7 of Q1.|put 8785|
|00004ec0| 2e 35 33 36 33 30 32 34 | 33 31 30 31 33 31 37 30 |.5363024|31013170|
|00004ed0| 38 37 30 38 33 35 20 69 | 6e 74 6f 20 6c 69 6e 65 |870835 i|nto line|
|00004ee0| 20 38 20 6f 66 20 51 31 | 0d 0d 2d 2d 20 20 4e 75 | 8 of Q1|..--  Nu|
|00004ef0| 6d 65 72 61 74 6f 72 20 | 61 6e 64 20 64 65 6e 6f |merator |and deno|
|00004f00| 6d 69 6e 61 74 6f 72 20 | 63 6f 65 66 66 69 63 69 |minator |coeffici|
|00004f10| 65 6e 74 73 20 66 6f 72 | 20 72 61 74 69 6f 6e 61 |ents for| rationa|
|00004f20| 6c 20 6d 69 6e 69 6d 61 | 78 0d 2d 2d 20 20 20 20 |l minima|x.--    |
|00004f30| 20 41 70 70 72 6f 78 69 | 6d 61 74 69 6f 6e 20 6f | Approxi|mation o|
|00004f40| 76 65 72 20 28 31 2e 35 | 2c 34 2e 30 29 2e 0d 70 |ver (1.5|,4.0)..p|
|00004f50| 75 74 20 30 2e 34 32 32 | 37 38 34 33 33 35 30 39 |ut 0.422|78433509|
|00004f60| 38 34 36 37 31 33 39 33 | 39 39 33 37 37 37 20 69 |84671393|993777 i|
|00004f70| 6e 74 6f 20 44 32 0d 70 | 75 74 20 34 2e 39 37 34 |nto D2.p|ut 4.974|
|00004f80| 36 30 37 38 34 35 35 36 | 38 39 33 32 30 33 35 30 |60784556|89320350|
|00004f90| 31 32 30 36 34 20 69 6e | 74 6f 20 6c 69 6e 65 20 |12064 in|to line |
|00004fa0| 31 20 6f 66 20 50 32 0d | 70 75 74 20 35 34 32 2e |1 of P2.|put 542.|
|00004fb0| 34 31 33 38 35 39 39 38 | 39 31 30 37 30 34 39 34 |41385998|91070494|
|00004fc0| 31 30 31 39 38 36 20 69 | 6e 74 6f 20 6c 69 6e 65 |101986 i|nto line|
|00004fd0| 20 32 20 6f 66 20 50 32 | 0d 70 75 74 20 31 35 35 | 2 of P2|.put 155|
|00004fe0| 30 36 2e 39 33 38 36 34 | 39 37 38 33 36 34 39 34 |06.93864|97836494|
|00004ff0| 37 36 36 35 30 37 37 20 | 69 6e 74 6f 20 6c 69 6e |7665077 |into lin|
|00005000| 65 20 33 20 6f 66 20 50 | 32 0d 70 75 74 20 31 38 |e 3 of P|2.put 18|
|00005010| 34 37 39 33 2e 32 39 30 | 34 34 34 35 36 33 32 34 |4793.290|44456324|
|00005020| 32 35 34 31 37 32 32 33 | 20 69 6e 74 6f 20 6c 69 |25417223| into li|
|00005030| 6e 65 20 34 20 6f 66 20 | 50 32 0d 70 75 74 20 31 |ne 4 of |P2.put 1|
|00005040| 30 38 38 32 30 34 2e 37 | 36 39 34 36 38 38 32 38 |088204.7|69468828|
|00005050| 37 36 37 34 39 38 34 37 | 30 20 69 6e 74 6f 20 6c |76749847|0 into l|
|00005060| 69 6e 65 20 35 20 6f 66 | 20 50 32 0d 70 75 74 20 |ine 5 of| P2.put |
|00005070| 33 33 33 38 31 35 32 2e | 39 36 37 39 38 37 30 32 |3338152.|96798702|
|00005080| 39 37 33 35 39 31 37 32 | 32 33 20 69 6e 74 6f 20 |97359172|23 into |
|00005090| 6c 69 6e 65 20 36 20 6f | 66 20 50 32 0d 70 75 74 |line 6 o|f P2.put|
|000050a0| 20 35 31 30 36 36 36 31 | 2e 36 37 38 39 32 37 33 | 5106661|.6789273|
|000050b0| 35 32 34 35 36 32 37 35 | 32 35 35 20 69 6e 74 6f |52456275|255 into|
|000050c0| 20 6c 69 6e 65 20 37 20 | 6f 66 20 50 32 0d 70 75 | line 7 |of P2.pu|
|000050d0| 74 20 33 30 37 34 31 30 | 39 2e 30 35 34 38 35 30 |t 307410|9.054850|
|000050e0| 35 33 39 35 35 36 32 35 | 30 39 32 37 20 69 6e 74 |53955625|0927 int|
|000050f0| 6f 20 6c 69 6e 65 20 38 | 20 6f 66 20 50 32 0d 70 |o line 8| of P2.p|
|00005100| 75 74 20 31 38 33 2e 30 | 33 32 38 33 39 39 33 37 |ut 183.0|32839937|
|00005110| 30 35 39 32 36 30 34 30 | 35 35 39 34 32 20 69 6e |05926040|55942 in|
|00005120| 74 6f 20 6c 69 6e 65 20 | 31 20 6f 66 20 51 32 0d |to line |1 of Q2.|
|00005130| 70 75 74 20 37 37 36 35 | 2e 30 34 39 33 32 31 34 |put 7765|.0493214|
|00005140| 34 35 30 30 35 38 37 31 | 33 32 33 30 34 37 20 69 |45005871|323047 i|
|00005150| 6e 74 6f 20 6c 69 6e 65 | 20 32 20 6f 66 20 51 32 |nto line| 2 of Q2|
|00005160| 0d 70 75 74 20 31 33 33 | 31 39 30 2e 33 38 32 37 |.put 133|190.3827|
|00005170| 39 36 36 30 37 34 31 39 | 34 34 30 32 34 34 38 20 |96607419|4402448 |
|00005180| 69 6e 74 6f 20 6c 69 6e | 65 20 33 20 6f 66 20 51 |into lin|e 3 of Q|
|00005190| 32 0d 70 75 74 20 31 31 | 33 36 37 30 35 2e 38 32 |2.put 11|36705.82|
|000051a0| 31 33 32 31 39 36 39 36 | 30 38 39 33 38 37 35 35 |13219696|08938755|
|000051b0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 34 20 6f 66 20 | into li|ne 4 of |
|000051c0| 51 32 0d 70 75 74 20 35 | 32 36 37 39 36 34 2e 31 |Q2.put 5|267964.1|
|000051d0| 31 37 34 33 37 39 34 36 | 39 31 37 35 37 37 35 33 |17437946|91757753|
|000051e0| 38 20 69 6e 74 6f 20 6c | 69 6e 65 20 35 20 6f 66 |8 into l|ine 5 of|
|000051f0| 20 51 32 0d 70 75 74 20 | 31 33 34 36 37 30 31 34 | Q2.put |13467014|
|00005200| 2e 35 34 33 31 31 31 30 | 31 36 39 32 32 39 30 30 |.5431110|16922900|
|00005210| 35 32 20 69 6e 74 6f 20 | 6c 69 6e 65 20 36 20 6f |52 into |line 6 o|
|00005220| 66 20 51 32 0d 70 75 74 | 20 31 37 38 32 37 33 36 |f Q2.put| 1782736|
|00005230| 35 2e 33 30 33 35 33 32 | 37 34 32 31 33 39 37 35 |5.303532|74213975|
|00005240| 39 33 32 20 69 6e 74 6f | 20 6c 69 6e 65 20 37 20 |932 into| line 7 |
|00005250| 6f 66 20 51 32 0d 70 75 | 74 20 39 35 33 33 30 39 |of Q2.pu|t 953309|
|00005260| 35 2e 35 39 31 38 34 34 | 33 35 33 36 31 33 33 39 |5.591844|35361339|
|00005270| 35 37 34 37 20 69 6e 74 | 6f 20 6c 69 6e 65 20 38 |5747 int|o line 8|
|00005280| 20 6f 66 20 51 32 0d 0d | 2d 2d 20 20 4e 75 6d 65 | of Q2..|--  Nume|
|00005290| 72 61 74 6f 72 20 61 6e | 64 20 64 65 6e 6f 6d 69 |rator an|d denomi|
|000052a0| 6e 61 74 6f 72 20 63 6f | 65 66 66 69 63 69 65 6e |nator co|efficien|
|000052b0| 74 73 20 66 6f 72 20 72 | 61 74 69 6f 6e 61 6c 20 |ts for r|ational |
|000052c0| 6d 69 6e 69 6d 61 78 0d | 2d 2d 20 20 20 20 20 41 |minimax.|--     A|
|000052d0| 70 70 72 6f 78 69 6d 61 | 74 69 6f 6e 20 6f 76 65 |pproxima|tion ove|
|000052e0| 72 20 28 34 2e 30 2c 31 | 32 2e 30 29 2e 0d 70 75 |r (4.0,1|2.0)..pu|
|000052f0| 74 20 31 2e 37 39 31 37 | 35 39 34 36 39 32 32 38 |t 1.7917|59469228|
|00005300| 30 35 35 30 30 30 30 39 | 34 30 32 33 20 69 6e 74 |05500009|4023 int|
|00005310| 6f 20 44 34 0d 70 75 74 | 20 31 34 37 34 35 2e 30 |o D4.put| 14745.0|
|00005320| 32 31 36 36 30 35 39 39 | 33 39 39 34 38 39 30 35 |21660599|39948905|
|00005330| 30 36 32 20 69 6e 74 6f | 20 6c 69 6e 65 20 31 20 |062 into| line 1 |
|00005340| 6f 66 20 50 34 0d 70 75 | 74 20 32 34 32 36 38 31 |of P4.pu|t 242681|
|00005350| 33 2e 33 36 39 34 38 36 | 37 30 34 35 30 32 38 33 |3.369486|70450283|
|00005360| 36 33 31 32 20 69 6e 74 | 6f 20 6c 69 6e 65 20 32 |6312 int|o line 2|
|00005370| 20 6f 66 20 50 34 0d 70 | 75 74 20 31 32 31 34 37 | of P4.p|ut 12147|
|00005380| 35 35 35 37 2e 34 30 34 | 35 30 39 33 32 32 37 39 |5557.404|50932279|
|00005390| 33 39 35 39 32 20 69 6e | 74 6f 20 6c 69 6e 65 20 |39592 in|to line |
|000053a0| 33 20 6f 66 20 50 34 0d | 70 75 74 20 32 36 36 33 |3 of P4.|put 2663|
|000053b0| 34 33 32 34 34 39 2e 36 | 33 30 39 37 36 39 34 39 |432449.6|30976949|
|000053c0| 38 39 38 30 37 38 20 69 | 6e 74 6f 20 6c 69 6e 65 |898078 i|nto line|
|000053d0| 20 34 20 6f 66 20 50 34 | 0d 70 75 74 20 32 39 34 | 4 of P4|.put 294|
|000053e0| 30 33 37 38 39 35 36 36 | 2e 33 34 35 35 33 38 39 |03789566|.3455389|
|000053f0| 39 39 30 36 38 37 36 20 | 69 6e 74 6f 20 6c 69 6e |9906876 |into lin|
|00005400| 65 20 35 20 6f 66 20 50 | 34 0d 70 75 74 20 31 37 |e 5 of P|4.put 17|
|00005410| 30 32 36 36 35 37 33 37 | 37 36 2e 35 33 39 38 38 |02665737|76.53988|
|00005420| 36 38 33 39 32 39 39 38 | 20 69 6e 74 6f 20 6c 69 |68392998| into li|
|00005430| 6e 65 20 36 20 6f 66 20 | 50 34 0d 70 75 74 20 34 |ne 6 of |P4.put 4|
|00005440| 39 32 36 31 32 35 37 39 | 33 33 37 2e 37 34 33 30 |92612579|337.7430|
|00005450| 38 38 37 35 38 38 31 32 | 30 20 69 6e 74 6f 20 6c |88758812|0 into l|
|00005460| 69 6e 65 20 37 20 6f 66 | 20 50 34 0d 70 75 74 20 |ine 7 of| P4.put |
|00005470| 35 36 30 36 32 35 31 38 | 35 36 32 32 2e 33 39 35 |56062518|5622.395|
|00005480| 31 34 36 35 30 37 38 32 | 34 32 20 69 6e 74 6f 20 |14650782|42 into |
|00005490| 6c 69 6e 65 20 38 20 6f | 66 20 50 34 0d 70 75 74 |line 8 o|f P4.put|
|000054a0| 20 32 36 39 30 2e 35 33 | 30 31 37 35 38 37 30 38 | 2690.53|01758708|
|000054b0| 39 39 33 33 33 33 37 39 | 38 34 33 20 69 6e 74 6f |99333379|843 into|
|000054c0| 20 6c 69 6e 65 20 31 20 | 6f 66 20 51 34 0d 70 75 | line 1 |of Q4.pu|
|000054d0| 74 20 36 33 39 33 38 38 | 2e 35 36 35 34 33 30 30 |t 639388|.5654300|
|000054e0| 30 39 32 33 39 38 39 38 | 34 32 33 38 20 69 6e 74 |09239898|4238 int|
|000054f0| 6f 20 6c 69 6e 65 20 32 | 20 6f 66 20 51 34 0d 70 |o line 2| of Q4.p|
|00005500| 75 74 20 34 31 33 35 35 | 39 39 39 2e 33 30 32 34 |ut 41355|999.3024|
|00005510| 31 33 38 38 30 35 32 30 | 34 32 38 34 32 20 69 6e |13880520|42842 in|
|00005520| 74 6f 20 6c 69 6e 65 20 | 33 20 6f 66 20 51 34 0d |to line |3 of Q4.|
|00005530| 70 75 74 20 31 31 32 30 | 38 37 32 31 30 39 2e 36 |put 1120|872109.6|
|00005540| 31 36 31 34 37 39 34 31 | 33 37 36 35 37 30 20 69 |16147941|376570 i|
|00005550| 6e 74 6f 20 6c 69 6e 65 | 20 34 20 6f 66 20 51 34 |nto line| 4 of Q4|
|00005560| 0d 70 75 74 20 31 34 38 | 38 36 31 33 37 32 38 36 |.put 148|86137286|
|00005570| 2e 37 38 38 31 33 38 31 | 31 35 34 32 33 39 38 20 |.7881381|1542398 |
|00005580| 69 6e 74 6f 20 6c 69 6e | 65 20 35 20 6f 66 20 51 |into lin|e 5 of Q|
|00005590| 34 0d 70 75 74 20 31 30 | 31 36 38 30 33 35 38 36 |4.put 10|16803586|
|000055a0| 32 37 2e 32 34 33 38 32 | 32 38 30 37 37 33 30 34 |27.24382|28077304|
|000055b0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 36 20 6f 66 20 | into li|ne 6 of |
|000055c0| 51 34 0d 70 75 74 20 33 | 34 31 37 34 37 36 33 34 |Q4.put 3|41747634|
|000055d0| 35 35 30 2e 37 33 37 37 | 31 33 32 37 39 38 35 39 |550.7377|13279859|
|000055e0| 37 20 69 6e 74 6f 20 6c | 69 6e 65 20 37 20 6f 66 |7 into l|ine 7 of|
|000055f0| 20 51 34 0d 70 75 74 20 | 34 34 36 33 31 35 38 31 | Q4.put |44631581|
|00005600| 38 37 34 31 2e 39 37 31 | 33 32 38 36 34 36 32 30 |8741.971|32864620|
|00005610| 38 31 20 69 6e 74 6f 20 | 6c 69 6e 65 20 38 20 6f |81 into |line 8 o|
|00005620| 66 20 51 34 0d 0d 2d 2d | 20 20 43 6f 65 66 66 69 |f Q4..--|  Coeffi|
|00005630| 63 69 65 6e 74 73 20 66 | 6f 72 20 6d 69 6e 69 6d |cients f|or minim|
|00005640| 61 78 20 61 70 70 72 6f | 78 69 6d 61 74 69 6f 6e |ax appro|ximation|
|00005650| 20 6f 76 65 72 20 28 31 | 32 2c 20 49 4e 46 29 2e | over (1|2, INF).|
|00005660| 0d 70 75 74 20 2d 30 2e | 30 30 31 39 31 30 34 34 |.put -0.|00191044|
|00005670| 34 30 37 37 37 32 38 20 | 69 6e 74 6f 20 6c 69 6e |4077728 |into lin|
|00005680| 65 20 31 20 6f 66 20 43 | 0d 70 75 74 20 30 2e 30 |e 1 of C|.put 0.0|
|00005690| 30 30 38 34 31 37 31 33 | 38 37 37 38 31 32 39 35 |00841713|87781295|
|000056a0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 32 20 6f 66 20 | into li|ne 2 of |
|000056b0| 43 0d 70 75 74 20 2d 30 | 2e 30 30 30 35 39 35 32 |C.put -0|.0005952|
|000056c0| 33 37 39 39 31 33 30 34 | 33 30 31 32 20 69 6e 74 |37991304|3012 int|
|000056d0| 6f 20 6c 69 6e 65 20 33 | 20 6f 66 20 43 0d 70 75 |o line 3| of C.pu|
|000056e0| 74 20 30 2e 30 30 30 37 | 39 33 36 35 30 37 39 33 |t 0.0007|93650793|
|000056f0| 35 30 30 33 35 30 32 34 | 38 20 69 6e 74 6f 20 6c |50035024|8 into l|
|00005700| 69 6e 65 20 34 20 6f 66 | 20 43 0d 70 75 74 20 2d |ine 4 of| C.put -|
|00005710| 30 2e 30 30 32 37 37 37 | 37 37 37 37 37 37 37 37 |0.002777|77777777|
|00005720| 37 36 38 31 36 32 32 35 | 35 33 20 69 6e 74 6f 20 |76816225|53 into |
|00005730| 6c 69 6e 65 20 35 20 6f | 66 20 43 0d 70 75 74 20 |line 5 o|f C.put |
|00005740| 30 2e 30 38 33 33 33 33 | 33 33 33 33 33 33 33 33 |0.083333|33333333|
|00005750| 33 33 33 33 33 31 35 35 | 34 32 34 37 20 69 6e 74 |33333155|4247 int|
|00005760| 6f 20 6c 69 6e 65 20 36 | 20 6f 66 20 43 0d 70 75 |o line 6| of C.pu|
|00005770| 74 20 30 2e 30 30 35 37 | 30 38 33 38 33 35 32 36 |t 0.0057|08383526|
|00005780| 31 20 69 6e 74 6f 20 6c | 69 6e 65 20 37 20 6f 66 |1 into l|ine 7 of|
|00005790| 20 43 0d 0d 70 75 74 20 | 58 20 69 6e 74 6f 20 59 | C..put |X into Y|
|000057a0| 0d 69 66 20 28 59 3e 30 | 29 20 61 6e 64 20 28 59 |.if (Y>0|) and (Y|
|000057b0| b2 58 42 49 47 29 20 74 | 68 65 6e 0d 69 66 20 28 |.XBIG) t|hen.if (|
|000057c0| 59 b2 45 50 53 29 20 74 | 68 65 6e 0d 70 75 74 20 |Y.EPS) t|hen.put |
|000057d0| 2d 6c 6e 28 59 29 20 69 | 6e 74 6f 20 52 45 53 0d |-ln(Y) i|nto RES.|
|000057e0| 65 6c 73 65 0d 69 66 20 | 59 b2 31 2e 35 20 74 68 |else.if |Y.1.5 th|
|000057f0| 65 6e 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 20 45 |en      | ----- E|
|00005800| 50 53 20 3c 20 58 20 b2 | 20 31 2e 35 0d 69 66 20 |PS < X .| 1.5.if |
|00005810| 28 59 3c 50 4e 54 36 38 | 29 20 74 68 65 6e 0d 70 |(Y<PNT68|) then.p|
|00005820| 75 74 20 2d 6c 6e 28 59 | 29 20 69 6e 74 6f 20 43 |ut -ln(Y|) into C|
|00005830| 4f 52 52 0d 70 75 74 20 | 59 20 69 6e 74 6f 20 58 |ORR.put |Y into X|
|00005840| 4d 31 0d 65 6c 73 65 0d | 70 75 74 20 30 20 69 6e |M1.else.|put 0 in|
|00005850| 74 6f 20 43 4f 52 52 0d | 70 75 74 20 28 59 2d 30 |to CORR.|put (Y-0|
|00005860| 2e 35 29 2d 30 2e 35 20 | 69 6e 74 6f 20 58 4d 31 |.5)-0.5 |into XM1|
|00005870| 0d 65 6e 64 20 69 66 0d | 69 66 20 28 59 b2 30 2e |.end if.|if (Y.0.|
|00005880| 35 29 20 6f 72 20 28 59 | b3 50 4e 54 36 38 29 20 |5) or (Y|.PNT68) |
|00005890| 74 68 65 6e 0d 70 75 74 | 20 31 20 69 6e 74 6f 20 |then.put| 1 into |
|000058a0| 58 44 45 4e 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |XDEN.put| 0 into |
|000058b0| 58 4e 55 4d 0d 72 65 70 | 65 61 74 20 77 69 74 68 |XNUM.rep|eat with|
|000058c0| 20 69 3d 31 20 74 6f 20 | 38 0d 70 75 74 20 58 4e | i=1 to |8.put XN|
|000058d0| 55 4d 2a 58 4d 31 20 2b | 20 6c 69 6e 65 20 69 20 |UM*XM1 +| line i |
|000058e0| 6f 66 20 50 31 20 69 6e | 74 6f 20 58 4e 55 4d 0d |of P1 in|to XNUM.|
|000058f0| 70 75 74 20 58 44 45 4e | 2a 58 4d 31 20 2b 20 6c |put XDEN|*XM1 + l|
|00005900| 69 6e 65 20 69 20 6f 66 | 20 51 31 20 69 6e 74 6f |ine i of| Q1 into|
|00005910| 20 58 44 45 4e 0d 65 6e | 64 20 72 65 70 65 61 74 | XDEN.en|d repeat|
|00005920| 0d 70 75 74 20 43 4f 52 | 52 2b 28 58 4d 31 2a 28 |.put COR|R+(XM1*(|
|00005930| 44 31 2b 58 4d 31 2a 28 | 58 4e 55 4d 2f 58 44 45 |D1+XM1*(|XNUM/XDE|
|00005940| 4e 29 29 29 20 69 6e 74 | 6f 20 52 45 53 0d 65 6c |N))) int|o RES.el|
|00005950| 73 65 0d 70 75 74 20 28 | 59 2d 30 2e 35 29 2d 30 |se.put (|Y-0.5)-0|
|00005960| 2e 35 20 69 6e 74 6f 20 | 58 4d 32 0d 70 75 74 20 |.5 into |XM2.put |
|00005970| 31 20 69 6e 74 6f 20 58 | 44 45 4e 0d 70 75 74 20 |1 into X|DEN.put |
|00005980| 30 20 69 6e 74 6f 20 58 | 4e 55 4d 0d 72 65 70 65 |0 into X|NUM.repe|
|00005990| 61 74 20 77 69 74 68 20 | 69 3d 31 20 74 6f 20 38 |at with |i=1 to 8|
|000059a0| 0d 70 75 74 20 58 4e 55 | 4d 2a 58 4d 32 20 2b 20 |.put XNU|M*XM2 + |
|000059b0| 6c 69 6e 65 20 69 20 6f | 66 20 50 32 20 69 6e 74 |line i o|f P2 int|
|000059c0| 6f 20 58 4e 55 4d 0d 70 | 75 74 20 58 44 45 4e 2a |o XNUM.p|ut XDEN*|
|000059d0| 58 4d 32 20 2b 20 6c 69 | 6e 65 20 69 20 6f 66 20 |XM2 + li|ne i of |
|000059e0| 51 32 20 69 6e 74 6f 20 | 58 44 45 4e 0d 65 6e 64 |Q2 into |XDEN.end|
|000059f0| 20 72 65 70 65 61 74 0d | 70 75 74 20 43 4f 52 52 | repeat.|put CORR|
|00005a00| 2b 28 58 4d 32 2a 28 44 | 32 2b 58 4d 32 2a 28 58 |+(XM2*(D|2+XM2*(X|
|00005a10| 4e 55 4d 2f 58 44 45 4e | 29 29 29 20 69 6e 74 6f |NUM/XDEN|))) into|
|00005a20| 20 52 45 53 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 | RES.end| if.else|
|00005a30| 0d 69 66 20 28 59 b2 34 | 29 20 74 68 65 6e 20 20 |.if (Y.4|) then  |
|00005a40| 20 20 2d 2d 2d 2d 2d 20 | 31 2e 35 20 3c 20 58 20 |  ----- |1.5 < X |
|00005a50| b2 20 34 2e 30 0d 70 75 | 74 20 59 2d 32 20 69 6e |. 4.0.pu|t Y-2 in|
|00005a60| 74 6f 20 58 4d 32 0d 70 | 75 74 20 31 20 69 6e 74 |to XM2.p|ut 1 int|
|00005a70| 6f 20 58 44 45 4e 0d 70 | 75 74 20 30 20 69 6e 74 |o XDEN.p|ut 0 int|
|00005a80| 6f 20 58 4e 55 4d 0d 72 | 65 70 65 61 74 20 77 69 |o XNUM.r|epeat wi|
|00005a90| 74 68 20 69 3d 31 20 74 | 6f 20 38 0d 70 75 74 20 |th i=1 t|o 8.put |
|00005aa0| 58 4e 55 4d 2a 58 4d 32 | 20 2b 20 6c 69 6e 65 20 |XNUM*XM2| + line |
|00005ab0| 69 20 6f 66 20 50 32 20 | 69 6e 74 6f 20 58 4e 55 |i of P2 |into XNU|
|00005ac0| 4d 0d 70 75 74 20 58 44 | 45 4e 2a 58 4d 32 20 2b |M.put XD|EN*XM2 +|
|00005ad0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 51 32 20 69 6e | line i |of Q2 in|
|00005ae0| 74 6f 20 58 44 45 4e 0d | 65 6e 64 20 72 65 70 65 |to XDEN.|end repe|
|00005af0| 61 74 0d 70 75 74 20 58 | 4d 32 2a 28 44 32 2b 58 |at.put X|M2*(D2+X|
|00005b00| 4d 32 2a 28 58 4e 55 4d | 2f 58 44 45 4e 29 29 20 |M2*(XNUM|/XDEN)) |
|00005b10| 69 6e 74 6f 20 52 45 53 | 0d 65 6c 73 65 0d 69 66 |into RES|.else.if|
|00005b20| 20 59 b2 31 32 20 74 68 | 65 6e 20 20 20 2d 2d 2d | Y.12 th|en   ---|
|00005b30| 2d 2d 20 34 2e 30 20 3c | 20 58 20 b2 20 31 32 2e |-- 4.0 <| X . 12.|
|00005b40| 30 0d 70 75 74 20 59 2d | 34 20 69 6e 74 6f 20 58 |0.put Y-|4 into X|
|00005b50| 4d 34 0d 70 75 74 20 2d | 31 20 69 6e 74 6f 20 58 |M4.put -|1 into X|
|00005b60| 44 45 4e 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 58 |DEN.put |0 into X|
|00005b70| 4e 55 4d 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |NUM.repe|at with |
|00005b80| 69 3d 31 20 74 6f 20 38 | 0d 70 75 74 20 58 4e 55 |i=1 to 8|.put XNU|
|00005b90| 4d 2a 58 4d 34 20 2b 20 | 6c 69 6e 65 20 69 20 6f |M*XM4 + |line i o|
|00005ba0| 66 20 50 34 20 69 6e 74 | 6f 20 58 4e 55 4d 0d 70 |f P4 int|o XNUM.p|
|00005bb0| 75 74 20 58 44 45 4e 2a | 58 4d 34 20 2b 20 6c 69 |ut XDEN*|XM4 + li|
|00005bc0| 6e 65 20 69 20 6f 66 20 | 51 34 20 69 6e 74 6f 20 |ne i of |Q4 into |
|00005bd0| 58 44 45 4e 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |XDEN.end| repeat.|
|00005be0| 70 75 74 20 44 34 2b 58 | 4d 34 2a 28 58 4e 55 4d |put D4+X|M4*(XNUM|
|00005bf0| 2f 58 44 45 4e 29 20 69 | 6e 74 6f 20 52 45 53 0d |/XDEN) i|nto RES.|
|00005c00| 65 6c 73 65 20 20 20 20 | 20 20 20 20 20 20 2d 2d |else    |      --|
|00005c10| 2d 2d 2d 20 58 20 3e 20 | 31 32 2e 30 0d 70 75 74 |--- X > |12.0.put|
|00005c20| 20 30 20 69 6e 74 6f 20 | 52 45 53 0d 69 66 20 59 | 0 into |RES.if Y|
|00005c30| b2 46 52 54 42 49 47 20 | 74 68 65 6e 0d 70 75 74 |.FRTBIG |then.put|
|00005c40| 20 6c 69 6e 65 20 37 20 | 6f 66 20 43 20 69 6e 74 | line 7 |of C int|
|00005c50| 6f 20 52 45 53 0d 70 75 | 74 20 59 2a 59 20 69 6e |o RES.pu|t Y*Y in|
|00005c60| 74 6f 20 59 53 51 0d 72 | 65 70 65 61 74 20 77 69 |to YSQ.r|epeat wi|
|00005c70| 74 68 20 69 3d 31 20 74 | 6f 20 36 0d 70 75 74 20 |th i=1 t|o 6.put |
|00005c80| 52 45 53 2f 59 53 51 20 | 2b 20 6c 69 6e 65 20 69 |RES/YSQ |+ line i|
|00005c90| 20 6f 66 20 43 20 69 6e | 74 6f 20 52 45 53 0d 65 | of C in|to RES.e|
|00005ca0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00005cb0| 0d 70 75 74 20 52 45 53 | 2f 59 20 69 6e 74 6f 20 |.put RES|/Y into |
|00005cc0| 52 45 53 0d 70 75 74 20 | 6c 6e 28 59 29 20 69 6e |RES.put |ln(Y) in|
|00005cd0| 74 6f 20 43 4f 52 52 0d | 61 64 64 20 28 53 51 52 |to CORR.|add (SQR|
|00005ce0| 54 50 49 20 2d 20 30 2e | 35 2a 43 4f 52 52 20 2b |TPI - 0.|5*CORR +|
|00005cf0| 20 59 2a 28 43 4f 52 52 | 2d 31 29 29 20 74 6f 20 | Y*(CORR|-1)) to |
|00005d00| 52 45 53 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |RES.end |if.end i|
|00005d10| 66 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |f.end if|.end if.|
|00005d20| 65 6c 73 65 0d 70 75 74 | 20 58 49 4e 46 20 69 6e |else.put| XINF in|
|00005d30| 74 6f 20 52 45 53 0d 65 | 6e 64 20 69 66 0d 72 65 |to RES.e|nd if.re|
|00005d40| 74 75 72 6e 20 52 45 53 | 0d 65 6e 64 20 61 6c 67 |turn RES|.end alg|
|00005d50| 61 6d 6d 61 0d 0d 2d 2d | b0 b0 b0 b0 b0 b0 b0 b0 |amma..--|........|
|00005d60| b0 b0 20 49 4e 43 4f 4d | 50 4c 45 54 45 20 47 41 |.. INCOM|PLETE GA|
|00005d70| 4d 4d 41 20 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |MMA ....|........|
|00005d80| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00005d90| b0 b0 b0 b0 b0 b0 b0 b0 | 0d 2d 2d 46 72 6f 6d 20 |........|.--From |
|00005da0| 4e 75 6d 65 72 69 63 61 | 6c 20 52 65 63 69 70 65 |Numerica|l Recipe|
|00005db0| 73 2e 0d 2d 2d 43 6f 6d | 70 75 74 65 73 20 76 61 |s..--Com|putes va|
|00005dc0| 6c 75 65 20 6f 66 20 74 | 68 65 20 69 6e 63 6f 6d |lue of t|he incom|
|00005dd0| 70 6c 65 74 65 20 67 61 | 6d 6d 61 20 66 75 6e 63 |plete ga|mma func|
|00005de0| 74 69 6f 6e 20 50 28 61 | 2c 78 29 2e 0d 2d 2d 54 |tion P(a|,x)..--T|
|00005df0| 68 65 72 65 20 69 73 20 | 61 6c 73 6f 20 61 20 63 |here is |also a c|
|00005e00| 6f 6d 70 6c 65 6d 65 6e | 74 61 72 79 20 66 75 6e |omplemen|tary fun|
|00005e10| 63 74 69 6f 6e 20 51 28 | 61 2c 78 29 20 3d 20 31 |ction Q(|a,x) = 1|
|00005e20| 2d 50 28 61 2c 78 29 2e | 0d 2d 2d 43 61 6c 6c 73 |-P(a,x).|.--Calls|
|00005e30| 3a 20 67 73 65 72 28 29 | 2c 20 67 63 66 28 29 2c |: gser()|, gcf(),|
|00005e40| 20 67 61 6d 6d 61 6c 6e | 28 29 2e 0d 66 75 6e 63 | gammaln|()..func|
|00005e50| 74 69 6f 6e 20 67 61 6d | 6d 61 50 20 61 2c 78 0d |tion gam|maP a,x.|
|00005e60| 69 66 20 78 3c 61 2b 31 | 20 74 68 65 6e 0d 72 65 |if x<a+1| then.re|
|00005e70| 74 75 72 6e 20 67 73 65 | 72 28 61 2c 78 29 0d 65 |turn gse|r(a,x).e|
|00005e80| 6c 73 65 0d 72 65 74 75 | 72 6e 20 31 2d 67 63 66 |lse.retu|rn 1-gcf|
|00005e90| 28 61 2c 78 29 0d 65 6e | 64 20 69 66 0d 65 6e 64 |(a,x).en|d if.end|
|00005ea0| 20 67 61 6d 6d 61 50 0d | 0d 2d 2d 50 61 72 74 20 | gammaP.|.--Part |
|00005eb0| 6f 66 20 67 61 6d 6d 61 | 50 2e 0d 2d 2d 43 6f 6d |of gamma|P..--Com|
|00005ec0| 70 75 74 65 73 20 50 28 | 61 2c 78 29 20 77 69 74 |putes P(|a,x) wit|
|00005ed0| 68 20 61 20 63 6f 6e 74 | 69 6e 75 65 64 20 66 72 |h a cont|inued fr|
|00005ee0| 61 63 74 69 6f 6e 2e 0d | 2d 2d 46 61 73 74 20 63 |action..|--Fast c|
|00005ef0| 6f 6e 76 65 72 67 65 6e | 63 65 20 66 6f 72 20 78 |onvergen|ce for x|
|00005f00| 3c 61 2b 31 2e 0d 66 75 | 6e 63 74 69 6f 6e 20 67 |<a+1..fu|nction g|
|00005f10| 73 65 72 20 61 2c 78 0d | 70 75 74 20 31 30 30 20 |ser a,x.|put 100 |
|00005f20| 69 6e 74 6f 20 69 74 6d | 61 78 0d 2d 2d 70 75 74 |into itm|ax.--put|
|00005f30| 20 33 2a 31 30 5e 2d 37 | 20 69 6e 74 6f 20 65 70 | 3*10^-7| into ep|
|00005f40| 73 20 2d 2d 69 6e 20 6f | 72 69 67 69 6e 61 6c 0d |s --in o|riginal.|
|00005f50| 70 75 74 20 32 2a 31 30 | 5e 2d 31 30 20 69 6e 74 |put 2*10|^-10 int|
|00005f60| 6f 20 65 70 73 0d 70 75 | 74 20 67 61 6d 6d 61 6c |o eps.pu|t gammal|
|00005f70| 6e 28 61 29 20 69 6e 74 | 6f 20 67 6c 6e 0d 69 66 |n(a) int|o gln.if|
|00005f80| 20 78 3d 30 20 74 68 65 | 6e 20 72 65 74 75 72 6e | x=0 the|n return|
|00005f90| 20 30 0d 70 75 74 20 61 | 20 69 6e 74 6f 20 61 70 | 0.put a| into ap|
|00005fa0| 0d 70 75 74 20 31 2f 61 | 20 69 6e 74 6f 20 73 6f |.put 1/a| into so|
|00005fb0| 6d 0d 70 75 74 20 73 6f | 6d 20 69 6e 74 6f 20 64 |m.put so|m into d|
|00005fc0| 65 6c 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 6e 0d |el.put 1| into n.|
|00005fd0| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 28 61 62 |repeat w|hile (ab|
|00005fe0| 73 28 64 65 6c 29 3e 61 | 62 73 28 73 6f 6d 29 2a |s(del)>a|bs(som)*|
|00005ff0| 65 70 73 29 20 61 6e 64 | 20 28 6e b2 69 74 6d 61 |eps) and| (n.itma|
|00006000| 78 29 0d 61 64 64 20 31 | 20 74 6f 20 61 70 0d 70 |x).add 1| to ap.p|
|00006010| 75 74 20 64 65 6c 2a 78 | 2f 61 70 20 69 6e 74 6f |ut del*x|/ap into|
|00006020| 20 64 65 6c 0d 61 64 64 | 20 64 65 6c 20 74 6f 20 | del.add| del to |
|00006030| 73 6f 6d 0d 61 64 64 20 | 31 20 74 6f 20 6e 0d 65 |som.add |1 to n.e|
|00006040| 6e 64 20 72 65 70 65 61 | 74 0d 69 66 20 6e 20 3e |nd repea|t.if n >|
|00006050| 20 69 74 6d 61 78 20 74 | 68 65 6e 20 72 65 74 75 | itmax t|hen retu|
|00006060| 72 6e 20 22 47 53 45 52 | 3a 20 61 20 74 6f 6f 20 |rn "GSER|: a too |
|00006070| 62 69 67 20 6f 72 20 69 | 74 6d 61 78 20 74 6f 6f |big or i|tmax too|
|00006080| 20 73 6d 61 6c 6c 22 0d | 72 65 74 75 72 6e 20 73 | small".|return s|
|00006090| 6f 6d 2a 65 78 70 28 2d | 78 2b 61 2a 6c 6e 28 78 |om*exp(-|x+a*ln(x|
|000060a0| 29 2d 67 6c 6e 29 0d 65 | 6e 64 20 67 73 65 72 0d |)-gln).e|nd gser.|
|000060b0| 0d 2d 2d 50 61 72 74 20 | 6f 66 20 67 61 6d 6d 61 |.--Part |of gamma|
|000060c0| 50 2e 0d 2d 2d 43 6f 6d | 70 75 74 65 73 20 31 2d |P..--Com|putes 1-|
|000060d0| 50 28 61 2c 78 29 20 77 | 69 74 68 20 61 20 63 6f |P(a,x) w|ith a co|
|000060e0| 6e 74 69 6e 75 65 64 20 | 66 72 61 63 74 69 6f 6e |ntinued |fraction|
|000060f0| 2e 0d 2d 2d 46 61 73 74 | 20 63 6f 6e 76 65 72 67 |..--Fast| converg|
|00006100| 65 6e 63 65 20 66 6f 72 | 20 78 3e 61 2b 31 2e 0d |ence for| x>a+1..|
|00006110| 66 75 6e 63 74 69 6f 6e | 20 67 63 66 20 61 2c 78 |function| gcf a,x|
|00006120| 0d 70 75 74 20 31 30 30 | 20 69 6e 74 6f 20 69 74 |.put 100| into it|
|00006130| 6d 61 78 0d 2d 2d 70 75 | 74 20 33 2a 31 30 5e 2d |max.--pu|t 3*10^-|
|00006140| 37 20 69 6e 74 6f 20 65 | 70 73 20 2d 2d 6f 72 69 |7 into e|ps --ori|
|00006150| 67 69 6e 61 6c 0d 70 75 | 74 20 32 2a 31 30 5e 2d |ginal.pu|t 2*10^-|
|00006160| 31 30 20 69 6e 74 6f 20 | 65 70 73 0d 70 75 74 20 |10 into |eps.put |
|00006170| 67 61 6d 6d 61 6c 6e 28 | 61 29 20 69 6e 74 6f 20 |gammaln(|a) into |
|00006180| 67 6c 6e 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 67 |gln.put |0 into g|
|00006190| 6f 6c 64 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 61 |old.put |1 into a|
|000061a0| 30 0d 70 75 74 20 78 20 | 69 6e 74 6f 20 61 31 0d |0.put x |into a1.|
|000061b0| 70 75 74 20 30 20 69 6e | 74 6f 20 62 30 0d 70 75 |put 0 in|to b0.pu|
|000061c0| 74 20 31 20 69 6e 74 6f | 20 62 31 0d 70 75 74 20 |t 1 into| b1.put |
|000061d0| 31 20 69 6e 74 6f 20 66 | 61 63 0d 70 75 74 20 31 |1 into f|ac.put 1|
|000061e0| 20 69 6e 74 6f 20 6e 0d | 72 65 70 65 61 74 20 77 | into n.|repeat w|
|000061f0| 68 69 6c 65 20 6e b2 69 | 74 6d 61 78 0d 70 75 74 |hile n.i|tmax.put|
|00006200| 20 6e 20 69 6e 74 6f 20 | 61 6e 0d 70 75 74 20 61 | n into |an.put a|
|00006210| 6e 2d 61 20 69 6e 74 6f | 20 61 6e 61 0d 70 75 74 |n-a into| ana.put|
|00006220| 20 28 61 31 2b 61 30 2a | 61 6e 61 29 2a 66 61 63 | (a1+a0*|ana)*fac|
|00006230| 20 69 6e 74 6f 20 61 30 | 0d 70 75 74 20 28 62 31 | into a0|.put (b1|
|00006240| 2b 62 30 2a 61 6e 61 29 | 2a 66 61 63 20 69 6e 74 |+b0*ana)|*fac int|
|00006250| 6f 20 62 30 0d 70 75 74 | 20 61 6e 2a 66 61 63 20 |o b0.put| an*fac |
|00006260| 69 6e 74 6f 20 61 6e 66 | 0d 70 75 74 20 78 2a 61 |into anf|.put x*a|
|00006270| 30 2b 61 6e 66 2a 61 31 | 20 69 6e 74 6f 20 61 31 |0+anf*a1| into a1|
|00006280| 0d 70 75 74 20 78 2a 62 | 30 2b 61 6e 66 2a 62 31 |.put x*b|0+anf*b1|
|00006290| 20 69 6e 74 6f 20 62 31 | 0d 69 66 20 61 31 20 ad | into b1|.if a1 .|
|000062a0| 20 30 20 74 68 65 6e 0d | 70 75 74 20 31 2f 61 31 | 0 then.|put 1/a1|
|000062b0| 20 69 6e 74 6f 20 66 61 | 63 0d 70 75 74 20 62 31 | into fa|c.put b1|
|000062c0| 2a 66 61 63 20 69 6e 74 | 6f 20 67 0d 69 66 20 61 |*fac int|o g.if a|
|000062d0| 62 73 28 28 67 2d 67 6f | 6c 64 29 2f 67 29 20 3c |bs((g-go|ld)/g) <|
|000062e0| 20 65 70 73 20 74 68 65 | 6e 20 65 78 69 74 20 72 | eps the|n exit r|
|000062f0| 65 70 65 61 74 0d 70 75 | 74 20 67 20 69 6e 74 6f |epeat.pu|t g into|
|00006300| 20 67 6f 6c 64 0d 65 6e | 64 20 69 66 0d 61 64 64 | gold.en|d if.add|
|00006310| 20 31 20 74 6f 20 6e 0d | 65 6e 64 20 72 65 70 65 | 1 to n.|end repe|
|00006320| 61 74 0d 69 66 20 6e 20 | 3e 20 69 74 6d 61 78 20 |at.if n |> itmax |
|00006330| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 47 43 46 |then ret|urn "GCF|
|00006340| 3a 20 61 20 74 6f 6f 20 | 62 69 67 20 6f 72 20 69 |: a too |big or i|
|00006350| 74 6d 61 78 20 74 6f 6f | 20 73 6d 61 6c 6c 22 0d |tmax too| small".|
|00006360| 72 65 74 75 72 6e 20 65 | 78 70 28 2d 78 2b 61 2a |return e|xp(-x+a*|
|00006370| 6c 6e 28 78 29 2d 67 6c | 6e 29 2a 67 0d 65 6e 64 |ln(x)-gl|n)*g.end|
|00006380| 20 67 63 66 0d 0d 2d 2d | 50 61 72 74 20 6f 66 20 | gcf..--|Part of |
|00006390| 67 61 6d 6d 61 50 20 61 | 6e 64 20 6e 65 63 65 73 |gammaP a|nd neces|
|000063a0| 73 61 72 79 20 66 6f 72 | 20 62 65 74 61 69 20 28 |sary for| betai (|
|000063b0| 69 6e 63 6f 6d 70 6c 65 | 74 65 20 62 65 74 61 20 |incomple|te beta |
|000063c0| 66 75 6e 63 74 69 6f 6e | 29 2e 0d 2d 2d 43 6f 6d |function|)..--Com|
|000063d0| 70 75 74 65 73 20 74 68 | 65 20 6c 6e 20 6f 66 20 |putes th|e ln of |
|000063e0| 74 68 65 20 67 61 6d 6d | 61 20 66 75 6e 63 74 69 |the gamm|a functi|
|000063f0| 6f 6e 3b 20 6e 65 63 65 | 73 73 61 72 79 20 66 6f |on; nece|ssary fo|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.